try except

← →
Нуб (2007-02-26 14:53) [0]

Ай нид хелп фром ю
try
Label2.Caption := " x2 + 2xy + 1 = " + IntToStr(sqr(a,b))
except
on EConvertError do ShowMessage("sdfsdf");
end;

не перехватывает ошибку в чем ошибка, в синтаксике ?

← →
novill © (2007-02-26 14:58) [1]

> в чем ошибка
Ошибка где-то между сиденьеми клавиатурой :)

что за функция sqr c двумя параметрами? что за типы переменных?

← →
Игорь Шевченко © (2007-02-26 15:03) [2]

Нуб (26.02.07 14:53)

ит из импоссибл ту хелп бикоз ю диднт провайд инаф солид инфомейшн то энсер ё квесчн

← →
Нуб (2007-02-26 15:05) [3]

Удалено модератором

← →
Нуб (2007-02-26 15:07) [4]

function TForm1.sqr(x: integer; y: integer): Integer;
begin
result:= x*x + 2*x*y + 1;
end;

x,y не ввожу , х и у у меня это эдиты

← →
clickmaker © (2007-02-26 15:08) [5]

> шовмесадж не срабатывает а пишет фак ю

как же не срабатывает, если все-таки пишет?
И правильно пишет, кстати

← →
Нуб (2007-02-26 15:12) [6]

Удалено модератором
Примечание: мат. оскорбления. и... а сам то ты что делаеш?

В блок except добавь строчку

on e:exception do showmessage("На самом деле ошибка класса "+e.classname+" с сообщением "+e.message);

И запускай не из-под дебаггера.

> try
> Label2.Caption := " x2 + 2xy + 1 = " + IntToStr(sqr(a,b))
> except
> on EConvertError do ShowMessage("sdfsdf");
> end;

А здесь нет ошибки, твоя функция SQR - возвращает Integer

Где тут что может случиться?

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