Klasse sich selbst in eine abgeleitete konvertieren

[Patrick]

An das Factory-Pattern habe ich auch gedacht. Aber dann hätte ja die Factory auch über das Wissen verfügen müssen, wie Entschieden wird welche konkrete Klasse im Endeffekt erstellt werden muss.
Ich habe nun eine Methode gefunden, wie nur die eine abstrakte Klasse das wissen muss. Und in meinem Fall muss die abstrakte Klasse nicht alle Ableitungen kennen. Ich arbeite mit "GetClass(string)"

Delphi-Quellcode:

var Transporter : TTransporter;
Transporter := TTransporter.CreateInstanz('TSchweineTransporter');

Delphi-Quellcode:

class function TTransporter.CreateInstanz(EntryValue: string): TTransporter;
var tmp : TPersistentClass;
begin
  tmp := GetClass(EntryValue);
  if not Assigned(tmp) or tmp.InheritsFrom(TTransporter) then
  begin
    Result := nil;
    raise Exception.Create('Fehler!');
  end
  else
    Result := TTransporter(tmp);
end;