Moin !

Ich teste gerade wieder ein bisschen mit RTTI und bin gerade zu der Frage gekommen ob man aus einem String eine Klasse erstellen kann.

Bsp:

markieren

Delphi-Quellcode:

type
  TUserTest = class(TUser)
  private
    Test : Boolean;
  public

  end;

Das sei mal unsere Klasse.

markieren

Delphi-Quellcode:

var user : TUser
begin
  user := ??? 'TUserTest' ???.Create

Geht das schon mit reinen Delphi Bordmitteln oder geht das nur mit RTTI?
Hat da ggf. jemand ein Beispiel zu?

http://delphi.about.com/library/weekly/aa080905a.htm

Moin !

Das habe ich auch gefunden. Dort muss man aber die Klassen extra mittels RegisterClass(Txxxxx) registrieren.

Geht das ggf. auch ohne?

Man kann sich mit den RTTI Möglichkeiten von D2010 die Klassen auflisten lassen:

zusammenfalten · markieren

Delphi-Quellcode:

var
  aClass : TClass;
  context : TRttiContext;
  types : TArray<TRttiType>;
  aType : TRttiType;
begin
  context := TRttiContext.Create;
  types := context.GetTypes;
  for aType in types do begin
    if aType.TypeKind = tkClass then begin
      aClass := aType.AsInstance.MetaclassType;
      Memo.Lines.Add(aClass.ClassName);
    end;
  end;

Evtl. kann man dann damit auch direkt eine Klasseninstanz erzeugen ?

Du müßtest erstmal schauen ob/wie man mit der neuen RTTI "alle" Klassen auflistet, bzw. dort nach der Gewünschten sucht.

Wenn du dann Etwas ala TClass rausbekommst, dann könntest du darüber .Create aufrufen.



Problem: Damit das richtige .Create aufgerufen wird, muß dieses als virtual deklariert sein, welches bei TObject (TClass = class of TObject) nicht der Fall ist.

markieren

Delphi-Quellcode:

var C: TClass;
X := C.Create;

Hier würde immer nur TObject.Create aufgerufen, egal ob zur (in C gespeicherten) Klasse ein anderes .Create deklariert wurde.

Bei TComponent wäre dieses der Fall und wenn man seinen TComponent-Nachfolger registriert hat, dann geht es auch ohne RTTI (die VCL nutzt dieses ja ausgiebig, um die DFMs zu laden)

OK, man könnte nun schauen, ob die RTTI hier auch noch eine Adresse für das richtige .Create liefert und Dieses direkt aufrufen.

Moin !

Also ich habe es jetzt mal so probiert und das funktioniert ...

StrClass : TObject;

zusammenfalten · markieren

Delphi-Quellcode:

var
  aClass : TClass;
  context : TRttiContext;
  types : TArray<TRttiType>;
  aType : TRttiType;
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 = 'TUserTest' then begin
        StrClass := aClass.NewInstance;
        TUserTest(StrClass).User := 'Test'; // Testzuweisung
      end;
    end;
  end;

Das geht durch alle Klassen und wenn 'TUserTest' vorhanden ist, dann habe ich danach in StrClass eine Instanz.

Sollte es so einfach gehen?

sieht so aus ...das funktioniert ebenfalls

zusammenfalten · markieren

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;