try ... except

← →
Alex Y © (2003-02-05 08:13) [0]

Приветствую всех!
Тако вот возник вопрос.
Пишу функцию

function MyInt(const S : string) : Integer;
begin
try
Result := StrToInt(S);
except
Result := 0;
end;
end;

...

begin
A := MyInt("qqqqq");
end;

В общем вариант классический.
При запуске все ОК, но как мне сделать, чтобы при трассировке не возникало исключение в MyInt.

Заранее благодарен.

← →
Reindeer Moss Eater (2003-02-05 08:41) [1]

Велосипед уже есть и имя ему
StrToIntDef

← →
Alex Y © (2003-02-05 08:52) [2]

Вообще-то это просто пример, вместо StrToInt, может что-то другое вызывать исключение.

← →
Reindeer Moss Eater (2003-02-05 08:56) [3]

Опция IDE "Break On Exception"

Спасибо.

try ... except Найти похожие ветки