Propertys auf Klasse variabel ansprechen

[Eppos]

Hallo zusammen,

ich habe eine Klasse mit Tabellennamen, diese möchte ich gerne variabel Abfragen.

Beispiel:

Delphi-Quellcode:

fTabelle1 : String;
fTabelle2 : String;

Property A1 : String read fTabelle1 write fTabelle1;
Property A2 : String read fTabelle2 write fTabelle2;

Im Programm selbst, habe ich einen String der so heißt wie die Property "A1".
Kann ich mit einem String die Property Abfragen und den Wert auslesen?

Gruß
Eppos

[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]

[Eppos]

Perfekt, vielen Dank!

[freimatz]

Perfekt? Sorry, aber ich halte so etwas für Murks. Man sollte so was nur im Notfall einsetzen

[Lemmy]

Zitat von freimatz:

Perfekt? Sorry, aber ich halte so etwas für Murks. Man sollte so was nur im Notfall einsetzen

Gibt es dafür auch einen Grund?

[freimatz]

Nein, nicht einen sondern viele.
Im Kern geht es darum, dass man die Fehlersicherkeit eines typsicheren Compilers aufgibt.
Wenn jemand das A2 mal umbennent, oder statt einem String einen FooString nimmt, dann bemerkt das vorher der Compiler. Mit Rtti knallt es im besten Fall zur Laufzeit, im schlimmsten Fall gibt es merkwürdige Effekte.
Auch wird das KISS-Prinzip verletzt.

Warum nimmste nicht ein array property?

[himitsu]

Delphi-Quellcode:

fTabelle : Array[1..3] of String;

Property A1 : String index 1 read GetTabelle write SetTabelle;
Property A2 : String index 2 read GetTabelle write SetTabelle;
Property A3 : String index 3 read GetTabelle write SetTabelle;
Property A[Index: Integer] : String read GetTabelle write SetTabelle;

Die Signaturen der Getter und Setter sind hier identisch, also kann man Beides oder nur je eine Variante verwenden.