Текущий архив: 2003.02.06;
Скачать: CL | DM;

Вниз

Почему так?   Найти похожие ветки 

← →
Darkwin ©   (2003-01-27 11:58) [0]

При вервом клике выскакивает сообщение Клас не существует, а при последующих Окно не имеет полос прокрутки? Вот код:
procedure TForm1.Button1Click(Sender: TObject);
var
e:Extended;
begin
try
e:=sqrt(-1);
ShowMessage(FloatToStr(e));
except
ShowMessage(SysErrorMessage(GetLastError));
end;
end;


---

← →
Чих-пых ©   (2003-01-27 19:23) [1]

try this:


...
except
on E : Exception do ShowMessage(E.Message);
end;


---

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

Текущий архив: 2003.02.06;
Скачать: CL | DM;

Наверх

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