Как экспортировать таблицу DBGrid в ТХТ файл?

[Roman123654789]

Как экспортировать таблицу дбгрид в ТХТ файл? Данные берутся из ADOquery

[Stilet]

var s:string; st:TStringList;
...
st:=TStringList.Create;

with ADOQuery do begin
 first;
 while not eof do begin s:='';
  for i:=0 to FieldsCount-1 do s:=s+Fields[0].AsString+' ';
  st.append(s);
  next; 
 end;
 free;
end;

st.savetofile('file.txt');
st.free;

[Serge_Bliznykov]

кстати, старый добрый TextFile никто не отменял.
можно и так:

var f2 : TextFile;
  buf2 : array[1..32*1024] of byte;
  s    : String;
begin

  AssignFile(f2,'MyTableExport.txt');
  System.SetTextBuf(f2,buf2);  {<<<<<--- это не обязательно, выделение буфера под записываемые данные....}
  Rewrite(f2);

 ADOQuery1.First;
 while not ADOQuery1.Eof do begin 
    s:='';
    for i:=0 to ADOQuery1.FieldsCount-1 do s:=s+ADOQuery1.Fields[i].AsString+' ';
    WriteLn(f2, s);
    ADOQuery1.next; 
 end;
 CloseFile(f2);

[Roman123654789]

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

кстати, старый добрый TextFile никто не отменял.
можно и так:

var f2 : TextFile;
  buf2 : array[1..32*1024] of byte;
  s    : String;
begin

  AssignFile(f2,'MyTableExport.txt');
  System.SetTextBuf(f2,buf2);  {<<<<<--- это не обязательно, выделение буфера под записываемые данные....}
  Rewrite(f2);

 ADOQuery1.First;
 while not ADOQuery1.Eof do begin 
    s:='';
    for i:=0 to ADOQuery1.FieldsCount-1 do s:=s+ADOQuery1.Fields[i].AsString+' ';
    WriteLn(f2, s);
    ADOQuery1.next; 
 end;
 CloseFile(f2);

данные сохраняются, но подскажите как таблицей сохранить, с названиями столбцов и данными в них.

[Serge_Bliznykov]

данные сохраняются, но подскажите как таблицей сохранить, с названиями столбцов и данными в них.

таблицей - это когда столбцы разделяются чем?! Выравненные пробелами?
А ширину столбца откуда брать?

Вы лучше приведите пример TXT файла (можно буквально на три строки и лучше приложите его к сообщению на форуме), который заполнен данными там, как Вы хотите, а мы вместе с Вами подумаем, как такой файл можно сформировать. ОК?

[Roman123654789]

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

таблицей - это когда столбцы разделяются чем?! Выравненные пробелами?
А ширину столбца откуда брать?

Вы лучше приведите пример TXT файла (можно буквально на три строки и лучше приложите его к сообщению на форуме), который заполнен данными там, как Вы хотите, а мы вместе с Вами подумаем, как такой файл можно сформировать. ОК?

Примерно так

[Stilet]

Вывод имен полей:

for i:=0 to ADOQuery1.FieldsCount-1 do Write(ADOQuery1.Fields[i].FieldName:30); writeln;

Вывод данных:

for i:=0 to ADOQuery1.FieldsCount-1 do Write(ADOQuery1.Fields[i].AsString:29,'|'); writeln;

Идея ясна?

P.S. Дай угадаю: Матричный принтер, которых должен распечатать тучу страниц и очень быстро. Угадал?