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




Вниз

Деление на ноль в Pascal е 


Genious   (2002-02-16 17:47) [0]

Народ кто-нибудь знает как сделать простой обработчик ошибок на Pascal"е. Смысл в том, что если происходит недопустимая арифметическая операция(например: деление на ноль или логарифм из отрицательного числа) мне надо ее обработать.



Desdechado   (2002-02-16 18:17) [1]

проверяй данные до ...



panov (M)   (2002-02-16 18:43) [2]

обрабатывай в блоке try..except...end



APL   (2002-02-17 12:25) [3]

а можно и так
function Mydiv(x,y:real):real;
begin
if y=0 then
result:=0
else
result:= x/y;
end;



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.
Т.е. каскадную обработку исключений, возбуждение собственных и пр.




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




Наверх





Память: 0.72 MB
Время: 0.014 c
14-302            Алексей Петров (M)    2002-02-15 11:56  2002.04.01  
2 Merlin: Убери, Please, от меня большую синию (M)


1-111             sniknik               2002-03-21 16:08  2002.04.01  
Форматированный Hint.


3-49              boogier               2002-03-07 14:33  2002.04.01  
Как избежать ошибки при выпонении запроса SQL


3-50              AndrewK               2002-03-05 15:35  2002.04.01  
Как составить SQL запрос


14-284            Vladimir Lubenchenko  2002-02-15 22:08  2002.04.01  
Where can I download Report Builder Enterprise 6.03 for Delphi 6