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;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

SaveSoldierLog('日志内容');

end;
 

相关阅读 >>

Delphi中用ado连接加密access数据库

Delphi xe5 程序中标识win max android ios程序代码分别实现

Delphi 如何判断可见字符 unicode

Delphi 数字转excel字母列序号

Delphi 过滤网页代码 <script></script>

Delphi 自带rest调试工具 restdebugger 用法

Delphi研究之驱动开发篇（七）--利用共享内存与用户模式

Delphi bytestofile

Delphi 如何将颜色值转换为html格式？

Delphi string转unicode

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 简单的日志记录