Namen und Typ aller Attribute einer Klasse ermitteln

[norwegen60]

Dank des Hinweises von Uwe war die Lösung nicht mehr schwer:

Delphi-Quellcode:

procedure TForm4.BitBtn3Click(Sender: TObject);
  procedure GetFields(pValue: TClass);
  var
    rttiContext: TRttiContext;
    rttiType: TRttiType;
    attribute: TCustomAttribute;
    rttiField: TRttiField;
  begin
    rttiContext := TRttiContext.Create;
    try
      rttiType := rttiContext.GetType(pValue);
      Memo1.Clear;
      for rttiField in rttiType.GetFields do
        Memo1.Lines.Add(format('%s # %s # %s', [rttiField.Name, rttiField.FieldType.ToString, rttiField.ToString]));
    finally
      rttiContext.Free;
    end;
  end;

begin
  GetFields(TTest);
end;

und das Resultat

Code:

Name1 # string # Name1: string @ 04
Alter # Integer # Alter: Integer @ 08

Mit rttiField.FieldType.TypeKind kann ich direkt auf den Datentyp zugreifen

[norwegen60]

Jetzt habe ich doch noch ein Problem.

Wie kann ich auf ein Feld einer Klasse zugreifen wenn ich den Namen als String vorliegen habe, also ähnlich wie bei der Datenbank wo ich Query.FieldByName(sName).Value verwenden kann.

[nahpets]

Bei Delphi 7 gibt's die Unit TypInfo, gehe davon aus, dass sie auch bei neueren Delphis noch dabei ist.

Schau dort bitte mal nach GetStrProp und SetStrProp, die sind für Strings. Analog gibt es die auch für andere Typen.

Damit kann man ermitteln, ob ein Objekt 'ne Eigenschaft von dem Typ mit dem gewünschten Namen hat bzw. kann einer Eigenschaft von dem Typ einen Wert zuweisen.

Prinzipiell müsstest Du damit deine Aufgabenstellung umsetzen können. Kann momentan aber nicht abschätzen, wieviel Aufwand das wird.

[Uwe Raabe]

Zitat von norwegen60:

Wie kann ich auf ein Feld einer Klasse zugreifen wenn ich den Namen als String vorliegen habe

Dafür gibt es rttiType.GetField(sName) .