Delphi Удобное ведение журналов Delphi SaveLog

[Lomanu4]

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

 

[Mazahaka_lab]

Возможно и удобно, но мучать жёсткий диск юзера да и свой в том числе не хочется . Проще в конце работы программы сохранить лог один раз и всё .

 

[Lomanu4]

Возможно и удобно, но мучать жёсткий диск юзера да и свой в том числе не хочется . Проще в конце работы программы сохранить лог один раз и всё .

Ну это смотря кому как нужно, некоторые делают лог на каждое событие в приложении и отправляют репорт без ведомства производителю для анализа действий пользователя .