Aus einem String eine Klasse erzeugen

[Bummi]

sieht so aus ...das funktioniert ebenfalls

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  aClass : TClass;
  context : TRttiContext;
  types : TArray<TRttiType>;
  aType : TRttiType;
  StrClass:TForm;
begin
  context := TRttiContext.Create;
  types := context.GetTypes;
  for aType in types do begin
    if aType.TypeKind = tkClass then begin
      aClass := aType.AsInstance.MetaclassType;
      if aClass.ClassName = 'TForm2' then begin
        StrClass :=  TFormClass(aClass).Create(self);
        Tform(StrClass).Show;
      end;
    end;
  end;
end;