Пример класса для создания лога программы

Posted by Chas under Delphi

3D Hunter
если ваше приложение многопоточное, то лучше завернуть эту функцию в класс, например:

type

  TLogs = class

  public

    FRTL:TRTLCriticalSection;

    function Log(const AText:AnsiString):Boolean;

  public

    constructor Create;

    destructor Destroy;

  end;

implementation
constructor TLogs.Create;

var

  i:Integer;

begin

  inherited Create;

  InitializeCriticalSection(FRTL);

end;
destructor TLogs.Destroy;

begin

  DeleteCriticalSection(FRTL);

  inherited Destroy;

end;
function TLogs.Log(const AText:AnsiString):Boolean;

var

  LStr:AnsiString;

  LFile:TextFile;

begin

  try

    try

      EnterCriticalSection(FRTL);

      Result:=True;

      LStr:=ExtractFilePath(Application.ExeName)+'log.txt';

      AssignFile(LFile,LStr);

      if FileExists(LStr) then Append(LFile) else Rewrite(LFile);

      LStr:=Format('%s - %s',[DateTimeToStr(Now),AText]);

      Writeln(LFile,LStr);

    finally

      CloseFile(LFile);

      LeaveCriticalSection(FRTL);

    end;

  except

    Result:=False;

  end;

end;

Использование:

...

var

  Logs:TLogs;

begin

  Logs:=TLogs.Create;

  ...

  Logs.Log('Log-message is created');

  ...

  FreeAndNil(Logs);

end;

...

В текстовом файле log.txt появится строчка:
26.11.2011 22:32:45 — Log-message is created

тема на форуме

Похожие статьи

• Создать класс: морская волна
• public/published методы
• Посимвольное считывание файла, поиск цифр в текстовом файле на C# (си шарп)
• Чтение определенный строки из текстового файла
• Чтение бинарного файла не с начала файла, а с заданной позиции
• Чтение программой из своего же exe-файла
• Замена переменной в тексте из файла (PHP)
• Заменить байт в файле (патч файла)
• Значок «new» к картинке
• Как скопировать файл из каталога с программой?