[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
методі переопределені корректно.