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 调用外部程序并等待其运行结束

Delphi 获取/设置桌面窗口样式的Delphi代码

Delphi windows 编程[10] - wm_lbuttondown、wm_lbuttonup 和 wm_mousemove 消息

Delphi 2009 之 tstringbuilder 类[1]: create

Delphi 为richedit设置行号

Delphi获取各种编码的识别符

Delphi mailurlmaybeinvalid 检测邮箱地址有效性

Delphi (user agent) of a twebbrowser

Delphi 简单电池电量显示

Delphi 加载图像并压缩，旋转图像角度

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

转载请注明出处：木庄网络博客 » delphi 创建一个文本文件