[RTTI] Setter und Getter einer Property

[s.h.a.r.k]

Hallo zusammen,

und schon wieder hänge ich mal an einem Problem mit RTTI ich würde gerne herausfinden, ob eine Property eine Setter und Getter-Methode hat und wenn ja, will ich deren Adresse haben. Ich habe schon folgenden Versuch unternommen, aber bin nicht wirklich zu einem Ergebnis gelangt:

Delphi-Quellcode:

//
// Hier erst mal die Klasse, die ich zum Testen erstellt habe
//

TBlub = class(TObject)
private
  FTest : String;
  function GetTest(): String;
public
  procedure SetTest(const AValue: String);
  property Test : String read GetTest write SetTest;
end;

procedure TBlub.SetTest(const AValue: String);
begin
  if (FTest <> AValue) then
    FTest := AValue;
end;


//
// Hier nun der eigentliche Code
//

var
  rContext : TRttiContext;
  rType : TRttiType;
  rProp : TRttiProperty;
  rMethod : TRttiMethod;

  obj : TBlub;
begin
  rContext := TRttiContext.Create();
  obj := TBlub.Create;
  try
    rType := rContext.GetType(TBlub);

    // Adresse von SetTest via GetMethod ausgeben
    Memo1.Lines.Add('SetTest-Address: ' + IntToStr(Integer(rType.GetMethod('SetTest').CodeAddress)) );

    for rProp in rType.GetProperties do
    begin
      // Property samt Getter und Setter-Methoden-Adressen ausgeben
      Memo1.Lines.Add(rProp.Name + ':');
      Memo1.Lines.Add(PPropInfo(rProp.Handle).Name + '-Get: ' + IntToStr(Integer(PPropInfo(rProp.Handle).GetProc)));
      Memo1.Lines.Add(PPropInfo(rProp.Handle).Name + '-Set: ' + IntToStr(Integer(PPropInfo(rProp.Handle).SetProc)));
    end;
  finally
    FreeAndNil(obj);
    rContext.Free();
  end;
end;

Folgende Zeilen kommen dabei raus:

Code:

SetTest-Address: 4894124
Test:
-Get: 33554944
-Set: 1074941952

Zum einen ist es so, dass die PPropInfo mit gar keinen Namen für die Methode liefert, was ich schon seltsam finde und zum anderen die Adressen der Setter-Methode nicht annähernd gleich sind.

Kann mir hier jemand helfen? Ich sehe wohl den Wald vor lauter Bäumen nicht