Zu unbekanntem Klassenderivat casten?

[stoxx]

Metaklassen sind Dein Stichwort ...

soo ...

Delphi-Quellcode:

type

TBaseClassType = class of TBasis;



var 

 aBaseClass : TBaseClassType;
 aBaseObj : TBasis;
 
begin


  aBaseClass := TAbleitungA;
  
   // constructor create von TBASIS muss virtual deklariert sein (oder virutal; abstract)
   // constructor create von TAbleitungA muss als override; deklariert werden
  
  aBaseObj := aBaseClass.Create;  
  Showmessage(aBaseObj.Classname);
  
  
  
end;