ClassInfo у класса Exception

← →
Priest © (2006-05-29 15:50) [0]

Делаю тестовый пример

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
E:Exception;
P:Pointer;
begin
E:=Exception.Create("erere");
P:=E.ClassInfo;
if P=nil then
Writeln("Pointer is nil!")
end.

Почему P=nil. Как такое может быть?

← →
Priest © (2006-05-29 16:02) [1]

Разобрался. Оказывается класс Exception билдется с директивой {$M-}, поэтому нет у него информации RTTI. А никак нельзя её добавить после?

← →
Сергей М. © (2006-05-29 16:18) [2]

> ClassInfo

Она тебе зачем сдалась ? Поясни ..

← →
Priest © (2006-05-29 16:29) [3]

Хочу сделать свой класс производный от Exception и в нём добавить свойства. А потом при возникновении ошибки - получить свойства. Но я уже разобрался. Я сделал свой производный класс и в нём включил M+.
Так что вопрос снимается

Что ж .. Хозяин - барин.

ClassInfo у класса Exception Найти похожие ветки