Текущий архив: 2005.12.04;
Скачать: CL | DM;

Вниз

Как узнать код ошибки   Найти похожие ветки 

← →
San1   (2005-11-07 21:30) [0]

Как узнать код ошибки для своей интерпритации исключения

---

← →
Джо ©   (2005-11-07 21:32) [1]

Переведи.

---

← →
Джо ©   (2005-11-07 21:33) [2]

Желательно с примером.

---

← →
Джо ©   (2005-11-07 22:04) [3]

А нафига спамить-то?
Судя по тому, что было в другой ветке, не вот это ли тебе нужно?

procedure TForm1.Button1Click(Sender: TObject);
begin
 try
   // выполняем сомнительные действия
   with TStrings.Create do
     Add ("");
 except
   // реагируем на все исключения
   on E: Exception do
     ShowMessage("ERROR: " +  E.Message);
 end;
end;

и

procedure TForm1.Button2Click(Sender: TObject);
begin
 try
   // выполняем сомнительные действия
   with TStrings.Create do
     Add ("");
 except
   // указываем обработку конкретных типов исключений

   on E: EAbstractError do
     ShowMessage("ABSTRACT ERROR: " +  E.Message);
   on E: EClassNotFound do
     ShowMessage("CLASS NOT FOUND ERROR: " +  E.Message);
   on E: EXXX do
     ShowMessage("XXX ERROR: " +  E.Message);
   else
     ....
 end;
end;


---

← →
San1   (2005-11-07 22:56) [4]

Большое спасибо. Въехал в суть дела. А-то ёлки-палки не в каждой книжке по Делфи это найдеш.

---

← →
Джо ©   (2005-11-07 23:39) [5]

> А-то ёлки-палки не в каждой книжке по Делфи это найдеш.

Любите Хелп - источник знаний :)) Поиск по ключевому слову except. Там все есть.

---

Страницы: 1 вся ветка

Текущий архив: 2005.12.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.048 c