Как экспортировать таблицу 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] тема на форуме

Похожие статьи

• Как в dbgrid сгруппировать повторяющиеся строки в таблице
• Исходник объединение двух таблиц и фильтрация по полю таблицы
• Как перебрать все значения в колонке DbGrid
• Чтение и запись (изменение) текстового файла
• Если текстовый файл существует, то открыть его и добавить перед третьей строкой новую строчку текста
• Как узнать тип поля в DBGrid?
• Выгрузить данные из DBGrid в txt-файл
• Раскрашивание ячеек в DBGrid
• Сортировка имен файлов в TStringList
• Удалить пустые строки из TStringList