Как сохранить результат запроса AdoQuery в текстовій файл

← →
sesh (2004-05-25 13:02) [0]

Подскажите, как сохранить результат запроса AdoQuery в текстовый файл?

← →
ega23 © (2004-05-25 13:12) [1]

В какой конкретно текстовый файл? В каком формате? Какой набор данных, какие типы данных?

В общем случае так:
var i: integer;
f:text;
begin
with DataSet do
begin
DisaibleControls;
First;
Assign(f,"export.txt");
Append(f);
while not Eof do begin
for i:=0 to Fields.count-1 do write(f,Fields[i].asString);
writeln(f);
Next;
end;
CloseFile(f);
EnableControls;
end;

Как сохранить результат запроса AdoQuery в текстовій файл Найти похожие ветки