我如何設置使用RTTI的嵌套屬性的值

Question

檢查這個簡化的示例（真實場景是不同的），我想設置一個對象的嵌套屬性的值，在這種情況下設置顏色的使用RTTI將TLabel組件的字體改爲clRed。

var 
    p : TRttiProperty; 
    p2: TRttiProperty; 
    c : TRttiContext; 
begin 
    c := TRttiContext.Create; 
    try 
    p := c.GetType(Label1.ClassInfo).GetProperty('Font'); 
    p2 := c.GetType(p.PropertyType.Handle).GetProperty('Color'); 
    p2.SetValue(p.PropertyType.AsInstance,clred); //this line is not working 
    finally 
    c.Free; 
    end; 
end; 

還我試圖

p2.SetValue(Label1,clred); 

Answer 1

下面的代碼將正常工作。

var 
    p : TRttiProperty; 
    p2: TRttiProperty; 
    c : TRttiContext; 
begin 
    c := TRttiContext.Create; 
    try 
    p := c.GetType(Label1.ClassInfo).GetProperty('Font'); 
    p2 := c.GetType(p.PropertyType.Handle).GetProperty('Color'); 
    p2.SetValue(p.GetValue(Label1).AsObject,clred); //this line now works. 
    finally 
    c.Free; 
    end; 
end; 

您需要從標籤中獲取嵌入字體。 TRttiProperty處理類型而不處理實例。您需要撥打GetValue()或SetValue()來處理該實例。

您的原始代碼引用的是類型而不是實例。