如何将TQuery查询的结果输出到txt文件(50分)

请问如何将TQuery查询的结果输出到txt文件(最好是输出到excel文件）

batchmove

或 写程序

with query1 do
begin
open;
first;
while not eof do
begin
往txt中写数据
Next;
end;
close;
end;

至于excel,好像有专门的空件

能不能用用速度快点的办法！

举个excel的例子
procedure TForm1.Button1Click(Sender: TObject);
var
i,row:integer;
begin
if SaveDialog1.Execute then
begin
Screen.Cursor:=crHourGlass;
ExcelApplication1.Connect;
ExcelApplication1.Workbooks.Add(Null,0);
ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Sheets[1] as _WorkSheet);
if not adoQuery1.Active then
begin
adoQuery1.Open;
end;
for i:=0 to adoQuery1.Fields.Count-1 do
ExcelWOrkSheet1.Cells.Item[1,i+1]:=adoQuery1.Fields.FieldName;
row:=2;
while not adoQuery1.Eof do
begin
for i:=0 to adoQuery1.Fields.Count-1 do
begin
ExcelWOrkSheet1.Cells.Item[row,i+1]:=adoQuery1.Fields.AsString;
end;
row:=row+1;
adoQuery1.Next;
end;
ExcelWorkBook1.SaveCopyAs(SaveDialog1.FileName);
ExcelWOrkBook1.Close(false);
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
Screen.Cursor:=crDefault;
Application.MessageBox('Export successfully!','Information',0);
end;
文本的类似

再快也要一筆筆的寫﹐agree with jqw.

>>terry_lzs
server中的那些office控件的使用方法那里有啊，delphi的帮助中没有使用方法。3ks

谢谢