txt文件日志操作类

最新推荐文章于 2023-08-11 10:37:24 发布

weixin_30896511

最新推荐文章于 2023-08-11 10:37:24 发布

阅读量202

点赞数

原文链接：http://www.cnblogs.com/hejoy91/archive/2013/05/29/3105975.html

版权

var log:textfile;lfname:string;

AssignFile(log,lfname); //关联文件

Append(log);//追加文件内容

Rewrite(log);//重写文件内容

Writeln(log,tempstr+ str);//写入一行内容回车

CloseFile(log); //关闭文件

//编写了一个txt文件日志操作类便于记录系统的相关运行信息

TLogFile = class
  private
    log:TextFile;
    dirPath:string;
    lfname:string;
  public
    constructor create();
    destructor destroy;override;
    procedure writeStr(str:string);
    procedure checkDir;
  end;
procedure TLogFile.checkDir;
var hd:THandle;
begin
  dirPath:=sAppRunPath+ sC_sysLog+ FormatDateTime('yyyy-mm',now);
  if not DirectoryExists(dirPath) then
  begin
    ForceDirectories(dirPath);
  end;
  lfname:= dirPath+'\'+ FormatDateTime('mm-dd',Now)+'.txt';
  if not FileExists(lfname) then
  begin
    hd:=FileCreate(lfname);
    FileClose(hd);
  end;
end;

procedure TLogFile.writeStr(str: string);
var tempStr:string;
begin
  checkDir;
  tempStr:='『'+FormatDateTime('yyyy-mm-dd hh:nn:ss',Now)+'』';
  AssignFile(log,lfname);
  Append(log);
  Writeln(log,tempstr+ str);
  CloseFile(log);
end;