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

Вниз

Отключение контроля ошибок   Найти похожие ветки 

← →
Zver1992   (2006-12-24 12:26) [0]

Как отключить в программе контроль ошибок? Конкретно интересует отключенние ошибки "is not valid integer value". Совсем. На работоспособность не влияет.

---

← →
Virgo_Style ©   (2006-12-24 12:54) [1]

может, проще их не допускать? Или перехватывать исключение?
Опять-таки StrToIntDef и TryStrToInt есть.

---

← →
BanserAnt   (2006-12-24 13:01) [2]

И где это у тебя такая ошибка возникает и чтоже делать если она возникла, продолжать работать с неверными данными. Ну тогда замени все строковыми литералами и ошибок не будет и работать тоже.

---

← →
Handle ©   (2006-12-24 13:51) [3]

public
 { Public declarations }
 procedure MyException(Sender:TObject; E:Exception);
end;

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

procedure TForm1.MyException(Sender:TObject; E:Exception);
begin
 if (E.ClassType.ClassName="EConvertError") then
   Exit;
end;

В насторйках Tool\Debugger Options\Language Exceptions\Add... "EConvertError"

---

← →
Loginov Dmitry ©   (2006-12-25 00:22) [4]

> if (E.ClassType.ClassName="EConvertError") then


Абалдеть!

---

← →
Джо ©   (2006-12-25 00:25) [5]

>  if (E.ClassType.ClassName="EConvertError") then

Если уж непременно хочется делать ректально, то хотя бы без особых извращений, то есть, например, так:
if E is EConvertError then

В вообще, лучше [1].

---

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

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

Наверх

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