[icegood]

Есть следующий синтаксис:

Код:

TBase = CLASS(TPersistent)
...
END;

TBaseClass = CLASS OF TBase;

TDesc1 = CLASS(TBase)
...
END;

TDesc2 = CLASS(TBase)
...
END;

procedure(p_myvar : TBase);
var
  myclass  : TBaseClass;
begin
  myclass  := f(p_myvar);
end;

Как в рантайме правильно вічислить myclass по p_myvar, если неизвестно, какому TDesc<n> p_myvar принадлежит?
Нужно для создания нового обьекта по трафарету p_myvar, все Assign
методі переопределені корректно.

[icWasya]

делается так

Код:

TBase = CLASS(TPersistent)
...
constructor Create;virtual;
END;

//если будет нетривиальный конструктор,то
TDesc2 = CLASS(TBase)
...
constructor Create;override;
END;

procedure(p_myvar : TBase);
var
  myclass  : TBaseClass;
  myvar  : TBase;
begin
  myclass  := p_myvar.ClassType;
  myvar:=myclass.Create();
end;

[icegood]

По-моему, не так...

Код:

TBaseClass = CLASS OF TBase;

- єто центральная строка, благодаря которой можно візівать виртуальній конструктор

Далее, TBaseClass и TBase.Classtype несовместимі.

[icWasya]

TBaseClass и TBase.Classtype несовместимы.
Сегодня 16:48

вот так получится

Код:

myclass  := TBase(p_myvar.ClassType);

[icWasya]

это центральная строка, благодаря которой можно візівать виртуальный конструктор

Главное, что бы он был

[icegood]

Ті хотел сказать
myclass := TBaseClass(p_myvar.ClassType);

ну ок, попробуем статическое приведение...

Сообщение от icWasya

Главное, что бы он был

Он и без того есть, не в єтом вопрос

Сообщение от icegood

Ті хотел сказать
myclass := TBaseClass(p_myvar.ClassType);

ну ок, попробуем статическое приведение...

Проканало!!!