delphi 很方便调用的Log日志方法

procedure WriteLog(const Info: string);

var

Stream: TFileStream;

FileName: string;

Msg: string;

P: PChar;

begin

FileName := ExtractFilePath(ParamStr(0)) + 'Log\' + FormatDateTime('YYYYMMDD',

Now) + '_' +

ExtractFileName(ChangeFileExt(ParamStr(0), '.Log'));

try

if FileExists(FileName) then

begin

Stream := TFileStream.Create(FileName, fmOpenReadWrite or

fmShareDenyNone);

end

else

begin

Stream := TFileStream.Create(FileName, fmCreate);

end;

try

Stream.Seek(0, soFromEnd);

Msg := FormatDateTime('YYYY-MM-DD HH:NN:SS.ZZZ', Now) + '|';

Msg := Msg + Info + Char($0D) + Char($0A);

P := PChar(Msg);

Stream.Write(P[0], Length(Msg));

finally

Stream.Free;

end;

except

end;

推荐分享