Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Проблема с GetPropInfo   Найти похожие ветки 

 
Ridlypoot ©   (2011-03-20 22:15) [0]

Есть два класса

{$M+}
 TEditorTest = class (TTest)
   published
     property RA;
 end;
{$M-}

и

{$M+}
TTest= class(TParentTest)
  private
    FRA: String;
  public
    property RA: String read FRA write FRA;
end;
{$M-}

...
...
var
 Test: TTest;
...
...
GetPropInfo(TEditorTest(Test), "RA");


Проблема в том, что GetPropInfo возвращает nil. Но если просто обратиться к свойству RA, TEditorTest(Test).RA, то всё вполне удачно. Подскажите, как можно решить эту проблему?


 
Игорь Шевченко ©   (2011-03-20 23:57) [1]

GetPropInfo(Test as TEditorTest, "RA"); ?


 
Ridlypoot ©   (2011-03-21 01:37) [2]

Invalid typecast


 
Игорь Шевченко ©   (2011-03-21 10:48) [3]

Invalid typecast

значит, оно не того типа


 
ridlypoot ©   (2011-03-21 11:33) [4]

Но ведь такой тайпкаст вполне работает TEditorTest(Test), и даже TEditorTest(Test).RA работает.


 
Юрий Зотов ©   (2011-03-21 12:33) [5]

1. В классе TEditorTest уберите директиву $M.

2. Если объект создавался так:
Test := TTest.Create;
то приведение к потомку с проверкой
Test as TEditorTest
даст Invalid typecast
а приведение к потомку БЕЗ проверки
TEditorTest(Test)
ошибки не даст, но GetPropInfo вернет nil (поскольку RTTI для него реально нет).


 
Игорь Шевченко ©   (2011-03-21 13:40) [6]


> Но ведь такой тайпкаст вполне работает TEditorTest(Test)


Это не тайпкаст


 
ridlypoot ©   (2011-03-21 14:46) [7]

То есть нет варианта, как получить GetPropInfo для свойства RA от TEditorTestб но объекта типа TTest? Даже при учёте, что TEditorTest не создаёт в памяти новых полей?


 
Игорь Шевченко ©   (2011-03-21 15:43) [8]


> но объекта типа TTest


у него нет PropInfo


 
Юрий Зотов ©   (2011-03-21 16:18) [9]


> ridlypoot ©   (21.03.11 14:46) [7]
> То есть нет варианта, как получить GetPropInfo для свойства
> RA от TEditorTestб но объекта типа TTest?

У объекта TTest свойство RA - public, поэтому оно не имеет RTTI и получить для него PropInfo нельзя.

У объекта TEditorTest свойство RA - published, поэтому оно имеет RTTI и получить для него PropInfo можно. Но для этого надо создавать объект именно класса TEditorTest, а не TTest:

var
 Test: TTest;
===
Test := TEditorTest.Create;

Теперь можно получать PropInfo, причем приведение типа даже и не потребуется. Только директиву $M для класса TEditorTest надо убрать, а для TTest - оставить.



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.119 c
15-1343742743
qetuo
2012-07-31 17:52
2013.03.22
Чем бы потестить внешний хард


2-1336838970
АлексеЕей
2012-05-12 20:09
2013.03.22
Задача по информатике


2-1339439502
vasa777
2012-06-11 22:31
2013.03.22
название файлов через точку


15-1353171765
plr
2012-11-17 21:02
2013.03.22
9 bit / бит четности


2-1342008651
Handler
2012-07-11 16:10
2013.03.22
const