Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c