Проблема с исключением try.....Except....

[X-LEV-X]

Проблема с исключением try.....Except....

Написал калькулятор, и сделал функцию умножения :

function umno (odin:string; dva:string):string;
var
Otvet:integer;
Otvet2:real;
begin
try
Otvet:=StrToint(Odin) * StrToint(Dva);
Result:=intToStr(Otvet);
except
Otvet2:=StrToFloat(odin) * StrToFloat(Dva);
Result:=FloatToStr(Otvet2)
end;
end;

если писать так, то возникает ошибка.
А вот если так:
function umno (odin:string; dva:string):string;
var
Otvet:integer;
Otvet2:real;
begin
try
Otvet2:=StrToFloat(odin) * StrToFloat(Dva);
Result:=FloatToStr(Otvet2)
except
Otvet:=StrToint(Odin) * StrToint(Dva);
Result:=intToStr(Otvet);
end;
end;

То ошибки нет. Объясните пожалуйста почему так происходит??????не пойму

[Terran]

Оба кода правильных и рабочих, только по разному записанных. У Вас ошибки скорее всего появляются из-за того, что вы в дробных числах ставите точку вместо запятой.