Большой Воронежский Форум
» Программирование>обработка исключения в дельфи
Ivan XXX 15:10 26.08.2007
вот в таком куске кода

try
StrToInt ( Edit1.Text );
except
on EConvertError do
begin
ShowMessage ( 'Неправильный формать данных' );
Exit;
end;
end;

программа вылетает на строчке "StrToInt ( Edit1.Text );" почему-то не обрабатывая исключение конвертации.

может кто знает в чем дело?
mikе 15:39 26.08.2007
про вылет обработки исключения ничего не скажу, а вот саму задачу решить гораздо проще.

процедура
Val(S; var V; var Code: Integer);
помещает целое или дробное число, модержащееся в S в переменную V, если S — число.
в Code помещается код ошибки, какие конкретно значения не помню, поэксперементируй

т.е. если S не число, прога не вылетает как в StrToInt, а просто помещает в Code некоторый код ошибки.
Ivan XXX 15:46 26.08.2007
пасиб .
Вверх