delphi SaveLog 日志

procedure SaveLog(const sMsg:string);

var

sList:TStringList;

fn:string;

begin

sList := TStringList.Create;

fn := ExtractFilePath(ParamStr(0))+'SysLog.txt';

try

if FileExists(fn) then

sList.LoadFromFile(fn);

if sList.Count>1000 then

sList.Clear;

sList.Add(FormatDateTime('yyyy-mm-dd hh:nn:ss',Now)+' '+sMsg);

sList.SaveToFile(fn);

finally

sList.Free;

end;

procedure WriteLog(ErrStr:String); //写入日志文件

var

LogFilename: String;

LogFile: TextFile;

begin

LogFilename:=ExtractFilePath(ParamStr(0)) + 'LOG.LOG';

AssignFile(LogFile, LogFilename);

if FileExists(LogFilename) then Append(LogFile)

else Rewrite(LogFile);

Writeln(Logfile,DateTimeToStr(now)+': '+ErrStr);

CloseFile(LogFile);

end;

推荐分享