delphi写入txt

最新推荐文章于 2020-08-18 11:24:28 发布

读万卷书不如行万里路呀

最新推荐文章于 2020-08-18 11:24:28 发布

阅读量4.2k

点赞数

分类专栏：杂集

本文链接：https://blog.csdn.net/nanfeiyannan/article/details/8130499

版权

杂集专栏收录该内容

102 篇文章 0 订阅

订阅专栏

unit WriteLog;

interface

Uses Windows,SysUtils;

function WriteTxt(strWrite:string):boolean;

implementation

function WriteTxt(strWrite:string):boolean;
var
  wLogFile: TextFile;
  DateTime: TDateTime;
  strTxtName,strContent: string;
begin
  DateTime:=now;
  strTxtName:=ExtractFilePath(paramstr(0))+FormatdateTime('yyyy-mm-dd',DateTime)+'.txt';
  AssignFile(wLogFile, strTxtName);
  if FileExists(strTxtName) then
    Append(wLogFile)
  else
  begin
    ReWrite(wLogFile);
  end;
  strContent:=FormatdateTime('tt',DateTime)+' '+strWrite;
  Writeln(wLogFile, strContent);
  CloseFile(wLogFile);

  Result:=true;
end;

end.