//创建一个文本文件

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;