Главная страница
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.049 c
2-1342616239
Люда
2012-07-18 16:57
2013.03.22
Tab в onKeyDown, onKeyPress


15-1340483402
Юрий
2012-06-24 00:30
2013.03.22
С днем рождения ! 24 июня 2012 воскресенье


15-1338725627
картман
2012-06-03 16:13
2013.03.22
cuda


15-1345926602
Юрий
2012-08-26 00:30
2013.03.22
С днем рождения ! 26 августа 2012 воскресенье


15-1353344525
Игорь Шевченко
2012-11-19 21:02
2013.03.22
Умер Борис Стругацкий