txt文件日志操作类
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;