关于数据写入txt问题,兄弟们进来呀
就是想实现按一个按钮后,自动的创建一个txt文本,然后把数据写入到txt中,不知道怎么实现呀!谢谢在DELPHI中是这样子,可不懂DELPHI呀,
procedure Tfm_main.writetxt(s:string);
var
vfilename:string;
fh:Textfile;
begin
vfilename:='kqrec.txt';
AssignFile(fh,vfilename);
if FileExists(vfilename) then append(fh)
else rewrite(fh);
writeln(fh,s);
closefile(fh);
end;
[此贴子已经被作者于2006-11-20 18:38:37编辑过]