| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с GetPropInfo

Ridlypoot ©   (2011-03-20 22:15:00) 

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

{$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-21 16:18:00) [1]

> 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 - оставить.

---

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

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


у него нет PropInfo

---

ridlypoot   (2011-03-21 14:46:00) [3]

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

---

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

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


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

---

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

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

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

---

ridlypoot   (2011-03-21 11:33:00) [6]

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

---

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

Invalid typecast

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

---

Ridlypoot   (2011-03-21 01:37:00) [8]

Invalid typecast

---

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

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

---

Наверх