| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать код ошибки [D7, WinXP]

San1 ©   (2005-11-07 21:30:00) 

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

---

Джо   (2005-11-07 23:39:00) [1]

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

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

---

San1   (2005-11-07 22:56:00) [2]

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

---

Джо   (2005-11-07 22:04:00) [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;


---

Джо   (2005-11-07 21:33:00) [4]

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

---

Джо   (2005-11-07 21:32:00) [5]

Переведи.

---

Наверх