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

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

Отключение контроля ошибок


Zver1992 ©   (2006-12-24 12:26:00) 

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


Джо   (2006-12-25 00:25:00) [1]


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

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

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


Loginov Dmitry   (2006-12-25 00:22:00) [2]

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


Абалдеть!


Handle   (2006-12-24 13:51:00) [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"


BanserAnt   (2006-12-24 13:01:00) [4]

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


Virgo_Style   (2006-12-24 12:54:00) [5]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо