[Profi]

Вот исчерпывающий пример из Хомоненко:

Query1.First;
//Перебор всех записей набора данных
for n:=1 to Query1.RecordCount do begin
rs:=''; s:='';
//Чтение названий столцов сетки
if n=1 then begin
for c:=0 to DBGrid1.Columns.Count -1 do begin
s:=DBGrid1.Columns[c].FieldName + ' ';
rs:=rs+s;
end;
Memo1.Lines.Add(rs);
rs:='';s:='';
end;
//Чтение значений полей текущей записи
for c:=0 to DBGrid1.Columns.Count -1 do begin
s:=DBGrid1.Columns[c].Field.AsString+' ';
rs:=rs+s;
end;
Memo1.Lines.Add(rs);
Query1.Next;
end;

Можно закрыть тему!