Текущий архив: 2006.07.09;
Скачать: CL | DM;
Вниз
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+.
Так что вопрос снимается
← →
Сергей М. © (2006-05-29 16:56) [4]Что ж .. Хозяин - барин.
Страницы: 1 вся ветка
Текущий архив: 2006.07.09;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.031 c
