[LostFuture]

Есть DBGrid к которому подключена база данных в формате Access, один из столбцов хранит true или false, в DBGrid это выглядит как рисованный "чекбокс" на строке.

Какое условие нужно слепить, чтобы в тех строках которые выбранные "чекбоксом" (реальное значение в таблице true) по кнопке "Save" сохранялся в тхт файл нужный столбец в строку с разделителем.

Пример:

Фамилия - Имя - Отчество - Дата Рождения - чекбокс
__________________________________________________ ________
Филимонов - Эдуард - Константинович - 12.05.1987 - True
Сахаров - Эдуард - Константинович - 12.05.1987 - False
Нежин - Николай - Владимирович - 15.02.1989 - True
Филимонов - Эдуард - Константинович - 12.05.1987 - False
Сахаров - Эдуард - Константинович - 12.05.1987 - True
Нежин - Николай - Владимирович - 15.02.1989 - True

В тхт выводится:
Филимонов, Нежин, Сахаров, Нежин

В StringGrid данная функция просто делалась, а в DBGrid застрял (
Спасибо.

[poli-smen]

Сообщение от LostFuture

Какое условие нужно слепить, чтобы в тех строках которые выбранные "чекбоксом" (реальное значение в таблице true) по кнопке "Save" сохранялся в тхт файл нужный столбец в строку с разделителем.
.....
В StringGrid данная функция просто делалась, а в DBGrid застрял (

Работать нужно не с DBGrid, а с тем набором данных которые отображает DBGrid, так как сам DBGrid (в отличие от StringGrid) сами данные в себе не хранит, а просто отображает те данные которые к нему "подключены".

[LostFuture]

Да это я понял, но как обратится к той же ячейке которая хранит false или true, чтобы циклом проверить их все?

[poli-smen]

Сообщение от LostFuture

Да это я понял, но как обратится к той же ячейке которая хранит false или true, чтобы циклом проверить их все?

Примерно так:

Код:

  Table1.First;
  while not Table1.Eof do
  begin
    if Table1.FieldByName('чекбокс').AsBoolean then
    begin
      WriteValue(Table1.FieldByName('Фамилия').AsString);
    end;
    Table1.Next;
  end;

Где Table1 это набор данных которые отображает DBGrid, а WriteValue функция которая дозаписывает очередное значение в нужный файл.

[LostFuture]

Спасибо большое прибольшое.

Получилось так:

Код:

var
f: TextFile;
i, k: Integer;
s1:string;
begin
AssignFile(f,('1.txt'));
Rewrite(f);
Append(f);
DBGrid.DataSource.DataSet.First;
while not DBGrid.DataSource.DataSet.Eof do
begin
  if DBGrid.DataSource.DataSet.FieldByName('CHECK').AsBoolean then
  begin
    s1:=(DBGrid.DataSource.DataSet.FieldByName('NAME').AsString)+','+s1;
  end;
  DBGrid.DataSource.DataSet.Next;
end;
Delete(s1, Length(s1), 1);
Writeln(f,s1);
CloseFile(f);