战地2突击兵武器:delphi数据怎样导出成txt文件

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/30 09:26:43

var
tf:textfile;
ln:string;
begin
assignfile(tf,'c:\temp.txt');
rewrite(tf);
while not db.eof do begin
ln:=db.fieldvalue['fieldname'];
writeln(tf,ln);
db.next
end;
closefile(tf);
end;

我用的ado,其他方法类似