Как правильно получать значение из выделенной строки TDBGrid в Delphi

Delphi , Компоненты и Классы , TDBGrid

Статья:

Вопрос о том, как получить значение из выделенной строки компонента TDBGrid в Delphi, является довольно распространенным среди разработчиков, работающих с данными. В этой статье мы рассмотрим, как решить эту проблему, используя примеры кода на Object Pascal.

Обзор проблемы

TDBGrid (DataGrid) – это визуальный компонент, который позволяет отображать данные из набора данных (dataset) в табличной форме. Для работы с выделенными строками и получения значений из них необходимо понимать, как работает механизм выделения и как связать выделенные строки с данными.

Подтвержденный ответ

Для начала работы с выделенной строкой, необходимо убедиться, что свойство Options компонента TDBGrid включает режим мультивыделения (MultiSelect). Это можно сделать через Object Inspector, установив значение свойства dgMultiSelect в True.

Вот пример кода, который демонстрирует, как получить значения из всех выделенных строк:

procedure TForm1.GetSelected;
var
  i, j: Integer;
  s: string;
  DataSet: TDataSet;
begin
  if DBGrid1.SelectedRows.Count > 0 then begin
    DataSet := DBGrid1.DataSource.DataSet;
    try
      ListBox1.Items.BeginUpdate;
      DataSet.DisableControls;
      for i := 0 to DBGrid1.SelectedRows.Count - 1 do begin
        DataSet.GotoBookmark(DBGrid1.SelectedRows.Items[i]);
        s := '';
        for j := 0 to DataSet.FieldCount - 1 do begin
          if (j > 0) then s := s + ', ';
          s := s + DataSet.Fields[j].AsString;
        end;
        ListBox1.Items.Add(s);
      end;
    finally
      DataSet.EnableControls;
      ListBox1.Items.EndUpdate;
    end;
  end;
end;

Обратите внимание, что после обработки каждой выделенной строки, переменная s инициализируется значением ''. Это важно для корректного разделения строк значений полей.

Альтернативный ответ

Если вам необходимо получить значение из одного поля выделенной строки, а именно из текущей строки, которая была последней выделенной или активирована пользователем, можно использовать следующий код:

var
  colidx: Integer;
  ss: string;
begin
  colidx := 0; // Номер колонки, значение которой вы хотите получить
  ss := DBGrid1.Fields[colidx].AsString;
end;

Этот код автоматически возвращает значение из текущей строки, выделенной в TDBGrid.

Особые замечания

Если вы работаете с Delphi Rio или более новой версией, вы можете использовать более удобный способ перехода к выделенной строке:

DataSet.GotoBookmark(DBGrid1.SelectedRows.Current);

Это упрощает код и делает его более читаемым.

Заключение

Получение значений из выделенной строки в TDBGrid в Delphi – это стандартная задача, которая решается с помощью методов навигации по набору данных и доступа к полям. Убедитесь, что вы используете правильные методы и свойства, чтобы ваш код был надежным и эффективным.

Не забудьте обратить внимание на обновление выделения и отображения, чтобы избежать нежелательного смешивания данных при многократном выделении строк. Очистка выделенных строк может быть выполнена следующим образом:

DBGrid1.SelectedRows.Clear;

Этот код сбросит все текущие выделения, что может быть полезно перед новым циклом выделения строк.

Создано по материалам из источника по ссылке.

Статья объясняет, как извлечь данные из выделенной строки в компоненте TDBGrid в среде разработки Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TDBGrid ::