Which Delphi component for logging to a file would you recommend?

Question

Delphi

Interested in a component (essentially one procedure) for logging to a file, with a maximum file size limit.

Answer 1

Jedi (JVCL) has a TJvLogFile

Answer 2

Log4D. Made by analogy with Log4j.

TLogBasicConfigurator.Configure(TLogRollingFileAppender.Create('filelog', 'file.log',
  TLogPatternLayout.Create('%d %p [%c] (%a:%t) - %m%n'), True, 'InterProcessLock',
  10 * 1024 * 1024, 3));

DefaultHierarchy.Root.Level := TLogLevel.GetLevel('all');

Answer 3

mORMot TSynLog . Screenshot to attract attention - log viewer (included):

Answer 4

I analyzed what is on the Internet and realized that for my tasks it is better and easier to write a simple procedure myself

function Log_write(fname, text:string):string;
var f:TStringList;
begin
  if not DirectoryExists('logs') then CreateDir('logs');

  f:=TStringList.Create;
  try
    if FileExists('logs\'+fname+'.log') then
      f.LoadFromFile('logs\'+fname+'.log');
    f.Insert(0,DateTimeToStr(Now)+chr(9)+text);
    while f.Count>1000 do f.Delete(1001);
    f.SaveToFile('logs\'+fname+'.log');
  finally
    f.Destroy;
  end;
end;