VPF::Ошибка в програм - Форум программистов

Rexar

Дата 25.4.2008, 23:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 105
Регистрация: 14.12.2005

Репутация: нет
Всего: 0

Надо как-то обрабатывать ошибки ! И чтобы не выводило сообщением, а записывало в Мемо1
По типу try...except, только на всю программу.

SneG0K

Дата 25.4.2008, 23:43 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54

Код


begin
 try
  \\Код всей программы :biggrin 
 except
 end;
end.

Rexar

Дата 26.4.2008, 00:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 105
Регистрация: 14.12.2005

Репутация: нет
Всего: 0

А для событий ?
Надо чтобы все ошибки выводились в Memo1...

Rohoss

Дата 26.4.2008, 02:38 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

Цитата(SneG0K @ 25.4.2008, 23:43)

Код


begin
 try
  \\Код всей программы :biggrin 
 except
 end;
end.

Чуток оффтоп. А можно ли запретить появляться ЛЮБЫМ ошибкам каким-то другим способом, например какой-то директивой компилятора или настройкой среды?

--------------------

Файловый менеджер Explorer.Net скачать video

aktuba

Дата 26.4.2008, 04:13 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

Application.OnExeption?

--------------------

Rohoss

Дата 27.4.2008, 21:07 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

aktuba, чего –то я не пойму как правильно заполнять параметры этой процедуры… SysUtils смотрел.

--------------------

Файловый менеджер Explorer.Net скачать video

aktuba

Дата 27.4.2008, 22:14 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

А что там может быть не понятного?

Код


procedure TForm1.AppExcept(Sender: TObject; E: Exception);
begin
  Memo1.Lines.Insert(0, E.Message);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  lInt: Integer;
begin
  lInt := 0;
  Caption := IntToStr(100 div lInt);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := AppExcept;
end;

Присоединённый файл ( Кол-во скачиваний: 6 )

Exception.rar 2,17 Kb

--------------------

Rohoss

Дата 28.4.2008, 03:15 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

Спасибо!

--------------------

Файловый менеджер Explorer.Net скачать video

Rohoss

Дата 30.8.2008, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

А вот у меня теперь сложилась такая ситуация. В приложении нету формы, всё делаю так, как в примере aktuba[/B](естественно не в мемо сохраняю, а пытаюсь записать в файл на диск), но исключения не перехватываются. Появляются сообщения об ошибках и программа умирает… smile

Код


procedure TBasic.LogError(Sender: TObject; E: Exception);
begin
 Logg('Системная ошибка: '+E.Message); //Logg - Процедура, записывающая на диск в лог файл
end;
...
Application.OnException:=LogError;
raise Exception.Create('!!!');

Это сообщение отредактировал(а) Rohoss - 30.8.2008, 15:48

--------------------

Файловый менеджер Explorer.Net скачать video

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »