Форум: "Начинающим";
Текущий архив: 2008.11.30;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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.

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

---

← →
Сергей М. ©   (2008-10-21 20:23) [8]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.11.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.005 c