Не поймать исключение

← →
INTAARI © (2003-06-27 13:24) [0]

Привет коллеги!!!
У меня возникла такая ситуация. Я использую для работы с СОМ портом Async Professional 4.06. В компоненте ТAPDDataPecket нужно поймать исключение EConvertError. Он ловит свое внутренее EVariantError до моего не доходит

procedure TForm1.Wind_PackStringPacket(Sender: TObject; Data: String); var i:integer; begin try Speed:=strtofloat(copy(Data,1,Pos(",",Data)-1)); except on EconvertError do Speed:=0; end; ....... end;

← →
Digitman © (2003-06-27 13:32) [1]

> до моего не доходит

значит, оно не возникает.
попросту до этого дело не доходит.

иначе данная попытка преобразования в ходе выполнения при недопустимых к преобразованию данных в строке однозначно привела бы к EconvertError, которое у тебя вполне корректно перехватывается в блоке except

← →
INTAARI © (2003-06-27 13:47) [2]

Я пытаюсь преднамеренно вызвать исключение копируя из строки "R,6.7", чтобы под преобразование попалось "R,6.7", а он не хочет.

ты что-нибудь слышал про отладочные точки останова и пошаговую трассировку программы под управлением встроенного в Делфи отладчика ?

Не поймать исключение Найти похожие ветки