Как добавить ведение лога в свою программу?

[Человек_Борща]

Доброе время суток уважаемые Гуру=)
Хм, в разных программах видел такую фичу.
дописав -debug(или отметив галочку в настройках программы), программа начинает писать в лог все действия которые происходят как со стороны пользователя так и со стороны программы...

Как это организовать?

[Marsel737]

Человек_Борща, ну это смотря что делает твоя программа. например можеш сделать так чтобы после выполнения процедуры сообщение дописывалось в мемо.

procedure TForm1.Тратаат(Sender: TObject);
begin
  Тратата
  if ComboBox1.Checked = true then // Этот комбобокс в настройках отвечает за ведние лога
    Memo1.Lines.Add('Происходит трататат');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Тратата
  if ComboBox1.Checked = true then 
  begin
    Memo1.Lines.Add('Пользователь нажал кнопку Button1');
    Memo1.Lines.Add('Происходит трататат');
  end;
end;

[MalCer]

Не совсем понятно именно за чем именно вести лог. Ведь над программой могут производиться различные действия(к примеру заносить в лог позиции наведения мышки на кнопку).
Посмотри исходник слежение за папками во вложении

[Человек_Борща]

спасибо.
если конкретнее можно ли предупреждать сообщения об Обращении программы к недопустимому адресу в памяти(acces violatons или OpenError's).. в место них выполнять выход из программы а информацию писать в файл...

[MalCer]

Конечно можно. Это очень легко. Посмотри на ссылки
http://pblog.ru/?p=89
http://www.delphimaster.ru/articles/errors/index.html
http://www.sql.ru/Forum/actualthread...tid=692167&hl=

[raxp]

...а еще один из форумчан выкладывал специальный модуль для ведения логов.

upd
-------

...всегда выкладываешь полезные вещи

модуль-то apromix-а, так что ему спасибо... а использовать - просто подключаете в uses и используете методы класса

 procedure Log(LogMessage : string); 
 procedure Log(LogMessage, LogStrValue: string);
 procedure Log(LogMessage: string; LogIntValue : Integer);

класс сам инициируется и денициируется

[Человек_Борща]

ого, raxp , спасибо огромное, всегда выкладываешь полезные вещи..
только не понятно как использовать...
=(

можешь привести пример? хатя бы при нажитии кнопки на голой форме?
хочу понять как вообще использовать этот модуль..


---
Обновлено
допустим есть форма с кнопкой:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, mlog;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
d:TmLog;
begin
form2.show;
end;

end.

есть переменная D типа TmLog

как правильно вызвать TmLog(и нужно ли вообще?)
как записать что была вызвана вторая форма? как записывать действия вообще?

пробовал это

procedure TForm1.Button1Click(Sender: TObject);
var
d:TmLog;
begin
d.Create('Test');
form2.show;
end;

программа послала меня в EAccesViolation....

[W0LF]

uses mLog;

procedure TForm1.Button1Click(Sender: TObject);
begin
Log.Log('Запущена Form2');
Form2.Show;
end;

[raxp]

Человек_Борща...
var d:TmLog;
begin
d.Create('Test');

повторюсь, класс сам инит-деинит...

initialization 
...
finalization 
...

W0LF вам уже подсказал

[Человек_Борща]

Сообщение от W0LF

uses mLog;

procedure TForm1.Button1Click(Sender: TObject);
begin
Log.Log('Запущена Form2');
Form2.Show;
end;

ушёл в EInOutError
с указанием в
исходник mlog

procedure TmLog.Log(LogMessage: string);
begin
  WriteLn(LogFile, Trim(LogMessage));
end;