[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, чтобы циклом проверить их все?

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

Код:

1 2 3 4 5 6 7 8 9

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]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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);