delphi 简单的日志记录

procedure SaveSoldierLog(const sMessage:string);

var

fn:string;

sList:TStrings;

begin

fn := ExtractFilePath(ParamStr(0))+'soft.Log';

sList := TStringList.Create;

try

if FileExists(fn) then

sList.LoadFromFile(fn);

if sList.Count>1000 then

sList.Clear;

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

sList.SaveToFile(fn);

finally

sList.Free;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

SaveSoldierLog('日志内容');

end;

推荐分享