вот в таком куске кода
try
StrToInt ( Edit1.Text );
except
on EConvertError do
begin
ShowMessage ( 'Неправильный формать данных' );
Exit;
end;
end;
программа вылетает на строчке "StrToInt ( Edit1.Text );" почему-то не обрабатывая исключение конвертации.
может кто знает в чем дело?
про вылет обработки исключения ничего не скажу, а вот саму задачу решить гораздо проще.
процедура
Val(S; var V; var Code: Integer);
помещает целое или дробное число, модержащееся в S в переменную V, если S — число.
в Code помещается код ошибки, какие конкретно значения не помню, поэксперементируй
т.е. если S не число, прога не вылетает как в StrToInt, а просто помещает в Code некоторый код ошибки.