delphi 记录日志

{新建一个TXT文档}

Procedure NewTxt(FileName:String);

Var

F : Textfile; {定义 F 为 Textfile}

Begin

AssignFile(F,FileName); {将文件名与变量 F 关联}

ReWrite(F); {创建Txt文档并命名为 “FileName ” }

Closefile(F); {关闭文件 F}

End;

{先附上原内容在写入新内容}

Procedure AppendTxt(Str:String;FileName:String);

Var

F:Textfile;

Begin

AssignFile(F, FileName);

Append(F); {附上原来的内容以免原内容被清空}

Writeln(F, Str); {把内容 Ser 写入文件F }

Closefile(F);

End;

// 记录日志

procedure WriteTxtLog(const strFileName, strContent: string);

var

strDir: string;

begin

try

if (Trim(strFileName) = '') then

exit;

strDir := ExtractFileDir(strFileName);

// 如果文件夹不存在，则创建

if (not DirectoryExists(strDir)) then

begin

ForceDirectories(strDir);

Application.ProcessMessages;

Sleep(100);

Application.ProcessMessages;

end;

// 如果文件不存在，则创建

if (not FileExists(strFileName)) then

begin

NewTxt(strFileName);

Application.ProcessMessages;

Sleep(100);

Application.ProcessMessages;

end;

AppendTxt(strContent, strFileName);

except

;

end;

end;

// 打印日志

procedure WriteLog(const strText : string; const isNoDate: Boolean = false);

var

dt: TDateTime;

strLogText, strLogFileName: string;

begin

dt := Now();

if not isNoDate then

begin

strLogText := FormatDateTime('yyyy-mm-dd hh:mm:ss', dt) + ' ';

end;

strLogText := strLogText + strText;

frmMain.mmoLog.Lines.Add(strLogText);

strLogFileName := FormatDateTime('yyyymmdd', dt);

strLogFileName := g_strPath + 'log\' + strLogFileName + '.txt';

WriteTxtLog(strLogFileName, strLogText);

end;