var f:TextFile;
Fields:string;
i:integer;
begin
AsSignFile(f,'c:/YourName.Txt');
if FileExists('c:/YourName.Txt') then
Append(f)
else
ReWrite(f);
while not YourData.Eof do
begin
Fields:='';
for i:=0 to YourData.FieldCount-1 do
Fields:=Fields+YourData.Fields.AsString+',';
Writeln(f,Fields);
YourData.next;
end;
CloseFile(f);
end;
將YourData改為你的數據庫名稱﹐將YourName改為你要的文本文件名稱﹐就可以了。