如何在運行時轉換類的屬性？

Question

我有一個類

type 
    myClass = class 
    private 
    FId: Integer; 
    public 
    function GetId: Integer; 
    property Id: Integer read FId; 
    end; 

現在，我要交換Id屬性getter在運行時使用的GetId方法而不是FId領域。我可以使用RTTI或其他方法來實現這一點嗎？

Answer 1

您不能在運行時用getter方法替換屬性閱讀器字段。但你可以這樣寫：

type 
    TMyClass = class 
    private 
    FId: Integer; 
    function GetId: Integer; 
    public 
    property Id: Integer read GetId; 
    end; 

implementation 

function TMyClass.GetId: Integer; 
begin 
    if IWantToReturnField then 
    Result := FId 
    else 
    Result := FId + SomeExtraStuff; 
end;