Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

1st
Окт

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

Posted by Chas under Delphi

Данные берутся из 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);[/code] тема на форуме