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

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

RTTI и конструктор класса

Индеец ©   (2009-04-11 17:48:00) 

Здравствуйте.
Есть первый класс:
T1=class (TPersistent)
public
constructor create;
...........
У него есть конструктор, в котором выполняется ряд действий.
Есть его наследник
T2=class(T1)
public
constructor create;
.......
constructor T2.create;
begin
inherited;
end;

В неком третьем классе создается экземпляр наследника:

Fobject:Tobject;
......
procedure T3.setnameclass(value: string);
var temp:TPersistentClass;
begin
temp:=GetClass(value);
if temp<>nil then
begin
  if Assigned(FObject) then
    FObject.Free;
   FObject:=temp.create;
 end;
end;

Ему в параметрах передается 'T2' и экземпляр этого класса в этом методе успешно создается. Но есть вопрос: почему при
FObject:=temp.create;, где temp уже является `T2` не выполняется конструктор класса T2 ?

---

Индеец   (2009-04-11 19:17:00) [1]

Большое спасибо, разобрался.

---

Григорьев Антон   (2009-04-11 18:47:00) [2]

Надо объявить тип TT1class = class of T1; и именно его использовать при объявлении temp вместо TPersistentClass.

---

Индеец   (2009-04-11 18:17:00) [3]

Переписал так:
T1=class (TPersistent)
public
constructor create;virtual;
......
T2=class(T1)
public
constructor create;override;
.......
constructor T2.create;
begin
inherited create;
end;

Fobject:Tobject;
......
procedure T3.setnameclass(value: string);
var temp:TPersistentClass;
begin
temp:=GetClass(value);
if temp<>nil then
begin
 if Assigned(FObject) then
   FObject.Free;
  FObject:=temp.create;
end;
end;
но немного не понял как именно надо переписать с
> ссылкой на тот класс, где конструктор уже объявлен виртуальным.

Ведь мы же не знаем какой именно класс будет в temp ? подскажите пожалуйста на примере этого кода

---

Григорьев Антон   (2009-04-11 18:06:00) [4]

Для этого нужно, чтобы конструктор был виртуальным, как у TComponent и его наследников, в противном случае компилятор выбирает конструктор по типу переменной temp, а не по её значению. И тип temp должен быть не TPersistentObject, а ссылкой на тот класс, где конструктор уже объявлен виртуальным.

---

Наверх