delphi 创建一个文本文件


本文整理自网络,侵删。

 
//创建一个文本文件

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取得trichedit的光标当前位置

Delphi 服务器与客户端的时间同步

Delphi获取access中的表名代码

Delphi isdirectory 判断是否是目录

Delphi word文档内容批量替换

Delphi研究之驱动开发篇(七)--利用共享内存与用户模式

Delphi tgpimage 把图像转存为其他格式

Delphi datetimetogmt gmt时间与tdatetime转换

idhttp控件的防止异常的处理

Delphi 检查注册表键、键值是否存在

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...