Какой компонент Delphi для ведения лога в файл посоветуете?

Question

[Максим]

Интересует компонент (по сути одна процедура) для ведения лога в файл, с лимитом максимального размера файла.

Answer 1

[kalapanga]

У Джедаев (JVCL) есть TJvLogFile

Answer 2

[Артем Килеев]

Log4D. Сделан по аналогии с 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

[zed]

mORMot TSynLog. Скриншот для привлечения внимания - вьювер логов (идёт в комплекте):

Answer 4

[Максим]

Проанализировал по инету что есть и понял что под мои задачи лучше и проще самому написать простенькую процедуру

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;