DBGrid в TXT

[RIO]

Здравствуйте ! Есть компонент DBGrid в нем 5 столбцов, подскажите пожалуйста, как считать в TXT файл, например первый столбец . . .

[Neeter]

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 t: TextFile;
begin
 if DBGrid1.DataSource.DataSet.RecordCount = 0 then Exit;
 DBGrid1.DataSource.DataSet.First;
 AssignFile(t, 'D:\file.txt');
 try
  Rewrite(t);
  for i := 0 to DBGrid1.DataSource.DataSet.RecordCount - 1 do
  begin
   Writeln(t, DBGrid1.DataSource.DataSet.Fields[0].AsString);
   DBGrid1.DataSource.DataSet.Next;
  end;
 finally
  CloseFile(t);
 end;
end;

[RIO]

Огромное спасибо

[artemavd]

а еще проще взять грид из библиотеки ehlib. Так сделано уже возможность сохранения грида во всякие форматы разные. Причем все сделано в одну строчку. Сам пользуюсь и очень рад.