战地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,其他方法类似