[RTTI] Setter und Getter einer Property

[chaosben]

[wenig_hilfreiche_Antwort]
Über die guten alten RTTI-Funktionen gehts wunderbar:

Delphi-Quellcode:

  uses uRTTIHelper;

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

var
  ppi : PPropInfo;
begin
  ppi := rttihGetPropertyByName(TBlub, 'Test');
  Edit1.Text := Format('Getter: %p / Setter: %p', [ppi^.GetProc, ppi^.SetProc]);
end;

Code:

Getter: 004644A8 / Setter: 004644BC

[/wenig_hilfreiche_Antwort]