Форум: "Потрепаться";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Вниз

Деление на ноль в Pascal е   Найти похожие ветки 

← →
AlexKniga   (2002-02-17 15:20) [4]

Как я понял, нужно сделать обработчик исключений на Turbo Pascal"е.

Program RTE;
Procedure Main;
Var Value: Double;
Begin
Repeat
WriteLn;
ReadLn (Value);
WriteLn (1/Value); //при вводе нуля получим RTE 200
Until Value=9999;
End;

Var ExitStandart: Pointer;
Procedure MyExit; far; // мой обработчик исключений
Begin
ExitProc:=ExitStandart;
If ErrorAddr<>nil Then
Case ExitCode of
200:
Begin
ErrorAddr:=nil;
WriteLn ("Division by zero!");
ExitProc:=@MyExit;
Main
End
Else
End;
ReadLn;
End;

Begin
ExitStandart:= ExitProc;
ExitProc:=@MyExit;
Main
End.

Почитай хелп по выделенному.
Аналогично обрабатываются все run time error"ы.
Можно реализовать самому все возмозности try..except...end.
Т.е. каскадную обработку исключений, возбуждение собственных и пр.

---

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

Форум: "Потрепаться";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Наверх

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