Propertys auf Klasse variabel ansprechen

[DeddyH]

Per RTTI geht das. Schau Dir mal die Unit System.Rtti dazu an.

[edit] Hier ein Minimalbeispiel ohne große Fehlerbehandlung:

Delphi-Quellcode:

uses System.Rtti;

function GetPropString(const Instance: TObject; const Propname: string): string;
var
  ctx: TRttiContext;
  rt: TRttiType;
  Prop: TRttiProperty;
  Value: TValue;
begin
  Result := '';
  ctx := TRttiContext.Create;
  rt := ctx.GetType(Instance.ClassType);
  if Assigned(rt) then
    begin
      Prop := rt.GetProperty(Propname);
      if Assigned(Prop) then
        begin
          Value := Prop.GetValue(Instance);
          Result := Value.ToString;
        end;
    end;
end;

[/edit]