Klasse die im Create eine Unterklasse erstellt

[alzaimar]

Delphi-Quellcode:

Type
  TBase = Class...;
  TSub1 = Class (TBase)...;
  TSub2 = Class (TBase) ...;

  TBaseClass = Class Of TBase;


Function CreateClass (aClass : TBaseClass) : TBase;
Begin
  Result := aClass.Create
End;

Oder hab ich was missverstanden?

Du solltest Dir eine ClassFactory bauen. Das ist eine Klasse, die dir genau die richtigen Instanzen erzeugt, im Grunde genommen aber nichts anderes als die 'CreateClass'-Funktion ist, nur eben als Klasse.

Delphi-Quellcode:

Type
  TBaseFactory = Class
  Public
     Function CreateClass (aClass : TBaseClass) : TBase;
  End;

In der TBase-Klasse kannst Du schon rein konzeptionell keine Funktion implementieren, die Nachkommen von TBase erzeugt. TBase kann doch gar nicht wissen, was für Nachkommen auf der Welt existieren? Was ist, wenn jemand in Timbuktu von deiner TBase-Klasse ableitet? Wie soll er dann noch die TBase-Klasse ändern? Hat er immer den Quellcode parat? Dazu ist doch der ganze Vererbungsquatsch da, um eben *nicht* mehr in Basisklassen rumzufuhrwerken, wenn eine neue Ableitung hinzukommt.

Der obige Code mit Klassenreferenzen funktioniert immer und wird es auch immer. Wenn neue, von TBase abgeleitete Klassen hinzukommen, musst Du da gar nichts mehr ändern. Keine Enumeration hinzufügen, nix.