Скачать: CL | DM;

Непойму как обработать Exception.   Найти похожие ветки 

← →
Kolan ©   (2007-02-14 10:50) [0]

except
       on E: EDeviceProtocolException do
       begin
         ErrorsCount := ErrorsCount + 1;
         if ErrorsCount > Trys then
         begin
           FException := E;
           Synchronize(DoException);
           raise;
         end;
       end;
     end;

Сейчас:
 Если Е - EDeviceProtocolException, то сохраняю её( FException := E;) и.. все написано вообщем.

Как хочу:
Если Е - EDeviceProtocolException, то сохраняю её( FException := E;);
А если нет, то все равно сохраняю( FException := E;), и делю что-то еще.

Как сделать такое?

---

← →
Плохиш ©   (2007-02-14 10:52) [1]

on E:Exception do
...

---

← →
Сергей М. ©   (2007-02-14 11:58) [2]

> Kolan ©   (14.02.07 10:50)


> А если нет, то все равно сохраняю( FException := E;), и
> делю что-то еще.


Что конкретно ?
От этого и решение зависит.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.972 c