关于数据写入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编辑过]
