Вопрос # 3 111: …ажаемые эксперты! Чтобы защититься от вылета по неправильному зап… (Оболочка Delphi, компилятор, версии среды и т.д.)

Доброго времени суток, уважаемые эксперты!
Чтобы защититься от вылета по неправильному заполнения входных данных, предпринял стандартное, как мне казалось, действие : <Пример 1> см. аттач. Результат никакой - ругается в окошко, что данные неправильные.

Думаю, может эта проверка может включается - отключается в опциях компилятора? Пересмотрел все, что было под рукой, и ничего не нашел. Да и по логике : если есть такой обработчик искл. ситуации, то он ее обрабытывает, а нет - стандартная реакция. Но - не работает.
В одном Helpe, который у меня числится как kuliba2000.chm, нашел такой вариант : <Пример 2.>
Это укрепило меня в мысли, что нечего надеяться на try, а нужно писать свой простой фильтр входной инф.

Приложение:

try
i := StrToInt (EdAd.Text) ;
except
on EConvertError do i := -1 ;
end ;
-----------------------------------------------------------
procedure MyException(Sender:TObject; E:Exception);
--------------------------------------------------------
procedure TMyForm.MyException(Sender:TObject; E:Exception);
begin
if (E.ClassType.ClassName='EConvertError') then
begin
end
end;
--------------------------------------------------------
procedure TMyForm.FormCreate(Sender: TObject);
begin
Application.OnException := MyException;
end;

Не буду говорить тут эпитетов типа "хорош хренотенью занимаццо", а скажу, как делаю я.
В таких случаях я просто юзаю функцию TryStrToInt(). В модуле SysUtils.pas подобных функций полно:

TryEncodeDate function

Creates a TDateTime value that represents a specified Year, Month, and Day.

TryEncodeTime function

Creates a TDateTime value for a specified Hour, Min, Sec, and MSec.

TryFloatToCurr function

Converts a floating-point value to a Currency value.

TryFloatToDateTime function

Converts a floating-point value to a TDateTime value.

TryStrToBool function

Converts a string to a Boolean value, with a Boolean success code.

TryStrToCurr function

Converts a string to a Currency value, with a Boolean success code.

TryStrToDate function

Converts a string to a TDateTime value, with a Boolean success code.

TryStrToDateTime function

Converts a string to a TDateTime value with a Boolean success code.

TryStrToFloat function

Converts a given string to a floating-point value with a boolean success code.

TryStrToInt function

Converts a string that represents an integer (decimal or hex notation) to a number with Boolean success code.

TryStrToInt64 function

Converts a string that represents an integer (decimal or hex notation) to a number.

TryStrToTime function

Converts a string to a TDateTime value with an error default.

Мини-форум вопроса

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Лучшие эксперты

Вопрос # 3 111

Мини-форум вопроса

Экспертная система Delphi.int.ru

Сообщество программистовОбщение, помощь, обмен опытом

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Лучшие эксперты

Вопрос # 3 111

Мини-форум вопроса

Сообщество программистов
Общение, помощь, обмен опытом