Moin !
Also ich habe es jetzt mal so probiert und das funktioniert ...
StrClass : TObject;
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?
