Creating a class at run time with an AncestorClass and a descendant Class name

RTL
1

I am trying to create a function that creates a class at runtime lie this:

function CreateDescentantClass( pcAncestorClass : TClass; const psDescendentClassName : String ): Class;

begin

Result := psDescendentClassName of pcAncestorClass;

end;

Is this possible? I am using Delphi Alexandria

2

Take a look here :