Есть следующий синтаксис:
Код:
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
методі переопределені корректно.