Objekt anhand der Klassenbezeichnung erzeugen

[SWE]

Super, vielen Dank. Klappt wunderbar und reicht mir!

So ungefähr geht's:

Delphi-Quellcode:

// Test-Objekt
TMeinObjekt1 = class (TPersistent)
public
    strName : String;
end;

...

initialization 
  // Klasse registrieren
  RegisterClass(TMeinObjekt1); 
end;        

...

// Test-Prozedur
procedure Test();
var
    cls : TPersistentClass;
    obj : TObject;
begin
    // Klassenreferenz ermitteln
    cls := FindClass('TMeinObjekt1');
    // Objekt-Instanz erzeugen
    obj := cls.Create();
    // Da nicht das konkrete Objekt erzeugt wurde, wird hier gecasted
    TMeinObjekt1(obj).strName := 'Hallo';
    // Test-Ausgabe
    ShowMessage(TMeinObjekt1(obj).strName);
end;