Как вести лог ошибок в приложении?

Posted by obzor under Delphi

Хочу отловить ошибку из за которой моя программа зависает. Для этого в начале и конце каждой процедуры отправлять строку в мемо. Получится такой простенький лог.

IliaIT

как вариант создать процедуру.

procedure Save_log(Soob_oh:string);
var
  Ini_I_O:TextFile;

begin
  AssignFile(Ini_I_O,'log.txt');
  if FileExists('log.txt') then
  begin
    Append(Ini_I_O);
    WriteLn(Ini_I_O, FormatDateTime('dd.mm.yyyy hh:nn:ss', Now)+' : '+Soob_oh);
  end
  else
  begin
    rewrite(Ini_I_O);
    WriteLn(Ini_I_O, FormatDateTime('dd.mm.yyyy hh:nn:ss', Now)+' : '+Soob_oh);
  end;
  CloseFile(Ini_I_O);
end;

а ошибки ловить

  try
    куча строк для работы программы или функции или события....
  except
    on E : Exception do
    begin
      Save_log('ошибка процедуры бла-бла '+E.Message);
    end;
  end;

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

Случайные статьи

• Шифруем файл с помощью другого файла в delphi
• Языки с самым лаконичным синтаксисом
• Random слов в Memo
• Найти окна с определенным словосочетанием
• Как создать wap сайт
• Технология производства чая (белый, зелёный, жёлтый, улун, шен, красный, шу)
• Решить прогрессию на Паскале
• Обработка нескольких нажатых одновременно клавиш
• Как узнать частоту звука
• Использование формата .gif в программе