请教如何将数据结果转化为TXT文件？

Question

DELPHI5
ORACLE数据库。
QUERY数据集组件。
不知如何实现，谢谢！

Answer 1

自己写一个方法呀。
这里提供一个思路，关于格式控式自己试一试就行啦。
Assign(f,'aaa.txt');
rewrite(f);
Query.First;
while not Query.Eof do
begin
  for i := 0 to Query.FieldCount -1 do
  begin
    //这里最好根据字段类型进行一些处理
    write(f,Query.Fields[i].Value);
  end;
  writeln(f);
  Query.Next;
end;

Answer 2

楼上说的正确，是一般的处理方法，不过，你也可以定义txt类型的数据库，使用batchcopy之类的函数直接转换到txt文件中，速度会十分快捷的

Answer 3

query1.SaveToFile ('C:\aa.txt');

Answer 4

记错了, Ado才有这个属性
adoquery1.SaveToFile ('C:\aa.txt');

Answer 5

先导到TStringList中，再TStringList.SaveToFile('d:\aa.txt');

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
temp:string;
begin
query1.open;
query1.first;
for i:=0 to query1.RecordCount-1 do
begin
temp:='';
for j:=0 to query1.FieldCount-1 do
begin
temp:=temp+(query1.fields[j].asstring+' ');
end;
memo1.Lines.Add(temp);
query1.next;
end;end;