Удивительно try..except и try..finally не работают если модуль Forms не подключен,
к примеру проверьте у себя вот этот код:

Код

program Project1; uses   Windows, Messages{, Forms}; var   WndMsg: tagMSG;   hWindow: HWND;   WndClass: TWndClass; procedure Test_Exception; var   P: PChar; begin   try     FreeMem(P); // Специально вызываем исключение   except     MessageBox(0, 'Error ?!', 'Error', MB_ICONERROR);   end; end; function WindowProc(Window: HWND; Msg: UINT; wParam, lParam: LongInt) : LongInt; stdcall; begin   case Msg of     WM_CREATE: Test_Exception;     WM_DESTROY: PostQuitMessage(0);   else     Result := DefWindowProc(Window, Msg, wParam, lParam);   end; end; begin   with WndClass do   begin     Style         := 0;     lpfnWndProc   := @WindowProc;     cbClsExtra    := 0;     cbWndExtra    := 0;     hInstance     := 0;     hIcon         := 0;     hCursor       := 0;     hbrBackground := 0;     lpszMEnuName  := nil;     lpszClassName := 'CLASS_NAME';   end;   if RegisterClass(WndClass) = 0 then Halt;   hWindow := CreateWindow('CLASS_NAME', nil, WS_OVERLAPPEDWINDOW, 0, 0, 0, 0, 0, 0, hInstance, nil);   ShowWindow(hWindow, SW_SHOW);   while GetMessage(WndMsg, 0, 0, 0) do   begin     TranslateMessage(WndMsg);     DispatchMessage(WndMsg);   end; end.

В случае с try..except, у меня вылетает ошибка "Runtime error 216 at XXXXXX",
и прога аварийно завершается, а в случае с try..finally, всё тоже, за исключением того
что код, следующий после finally, всё же исполняется ... а если подключить модуль
Forms - всё ок ! В чём проблема ???

ps
Может у меня Delphi глючет ...

Дело в том, что исключения обрабатываются потомками класса Exception (и им самим). Отсюда следует, что для правильной обработки исключений нужно подключить модуль SysUtils.

P. S.
Модуль Forms ссылается на SysUtils

Это сообщение отредактировал(а) Rrader - 27.9.2005, 08:10

Ответ правильный, но не совсем точный.
Да, если модуль SysUtils не включен в программу, то механизм перехвата исключений не будет запущен. В таком случае, исключения будут приводить к автоматической остановке программы с сообщением о Runtime Error.

Автор топика же, не совсем правильно пытается вызвать исключение. Дело в том, что его:

Код

FreeMem(P); // Специально вызываем исключение

как раз обычно не будет вызывать исключения! Все будет определяться значением переменной p. А поскольку она локальная, то ее значение в принципе неопределено!
Правильнее, использовать более надежные методы генерации исключений. Например, если переписать твою процедуру так:

Код

procedure Test_Exception; begin   try     pChar(Nil)^ := 'a';     MessageBox(0, 'No Error ?!', 'No Error ', MB_ICONERROR);   except     MessageBox(0, 'Error ?!', 'Error', MB_ICONERROR);   end; end;

То и результат будет несколько иным.

Это сообщение отредактировал(а) Петрович - 27.9.2005, 16:24

Спасибо что обьяснили !