Не ловится исключение

← →
tonick2001 (2008-10-20 14:11) [0]

procedure TForm1.Edit1Exit(Sender: TObject); var i1,i2:integer; begin if edit2.text="" then edit2.text:="0"; try i1:=strtoint(edit1.Text); i2:=strtoint(edit2.Text); except on EConvertError do label1.Caption:="Введите цифру"; else label1.Caption:=edit2.Text; end; if i1>i2 then label1.Caption:=edit1.text else label1.Caption:=edit2.Text;

Исключение не ловится. программа вываливается... что не так???

← →
Сергей М. © (2008-10-20 14:14) [1]

Исключения в этом фрагменте кода нет, видимо потому и не ловится.

← →
tonick2001 (2008-10-20 14:25) [2]

все разобрался уже.. Просто когда запускаешь в отладчике косячит, а непосредственно в exe все работает..

← →
Сергей М. © (2008-10-20 14:27) [3]

> Просто когда запускаешь в отладчике косячит

Ничего там не "косячит"

← →
Palladin © (2008-10-20 14:47) [4]

← →
www (2008-10-20 15:50) [5]

edit2.text:=IntToStr(StrToIntSafe(Trim(edit2.text)))
всего-то

← →
Ega23 © (2008-10-20 15:53) [6]

> все разобрался уже.. Просто когда запускаешь в отладчике
> косячит, а непосредственно в exe все работает..

Tools -> Debugger Options -> Language Exceptions -> Снять галку Stop on Delphi Exceptions.

Но учти, это палка о двух концах.

← →
Tonick2001 (2008-10-21 20:16) [7]

> Tools -> Debugger Options -> Language Exceptions -> Снять
> галку Stop on Delphi Exceptions.

Спасибо... Я уже нашёл это ))))

Малацца.
Отнынеп тебе присваивается почетный титул неловца ловимых исключений.

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