[RTTI] Setter und Getter einer Property

[s.h.a.r.k]

Wie folgt kann man den Pointer auf die Getter- und Setter-Methode einer Property ermitteln.

Delphi-Quellcode:

var
  rContext : TRttiContext;
  rType : TRttiType;
  rProperty : TRttiProperty;
  rPropInfo : PPropInfo;
  pt : Pointer;
begin
  rContext := TRttiContext.Create();
  try
    rType := rContext.GetType(Self.ClassType);
    for rProperty in rType.GetDeclaredProperties do
    begin
      rPropInfo := TRttiInstanceProperty(rProperty).PropInfo;

      // Pointer auf Setter-Methode
      pt := rPropInfo.GetProc;

      // Pointer auf Getter-Methode
      pt := rPropInfo.GetProc;
      
      { ... }

    end;
  finally
    rContext.Free();
  end;
end;