Тестирование.Обработка исключений
procedure TMyClass.test_method4; var A, B:integer; begin A := 1; B := 0; A := A div B; // Деление на 0 Writeln(A); end;
18.06.2009 14:07 Message : TMyClass.test_method4 18.06.2009 14:07 Error : Exception class: EDivByZero: Division by zero Address: 00417340