本文整理自网络,侵删。
//创建一个文本文件
procedure TFrmAutomatismBalance.FlatButton3Click(Sender: TObject);
var
TF:TextFile; PathStr:string;
begin
PathStr:=ExtractFilePath(Application.ExeName)+FormatDateTime('yyyy-mm-dd',Now())+'.txt' ; AssignFile(Tf,PathStr); ReWrite(Tf); CloseFile(Tf);
end;
//往文本文件里面写入数据
procedure TFrmAutomatismBalance.FlatButton3Click(Sender: TObject);
var TF:TextFile; PathStr:string;
begin
PathStr:=ExtractFilePath(Application.ExeName) +FormatDateTime('yyyy-mm-dd',Now())+'.txt' ; AssignFile(Tf,PathStr); Append(Tf); WriteLn(Tf,'Creat A TXT'); Flush(Tf); CloseFile(Tf);
end;
相关阅读 >>
Delphi研究之驱动开发篇(七)--利用共享内存与用户模式
Delphi datetimetogmt gmt时间与tdatetime转换
更多相关阅读请进入《Delphi》频道 >>