根據 RTTI 給子對象的屬性賦值

bestlong

通過 RTTI 給對象的屬性賦值相信大家都知道, 相應資料比較多, 但如何用RTTI為含有子對象(如FONT)的屬性賦值?

屬性必須是 published 的, 也就是可以在運行期在 Object Inspector 上設置的屬性

1. //uses typinfo
   
2. 
   
3. //取得對象屬性值,如果存在
   
4. function GetObjectProperty(const AObject : TObject; const APropName : string):TObject;
   
5. var
   
6.   PropInfo: PPropInfo;
   
7. begin
   
8.   Result := nil;
   
9.   PropInfo := GetPropInfo(AObject.ClassInfo, APropName);
   
10.   if Assigned(PropInfo) and (PropInfo^.PropType^.Kind = tkClass) then
    
11.     Result := GetObjectProp(AObject, PropInfo);
    
12. end;
    
13. 
    
14. //給整數型態屬性賦值,如果存在
    
15. function SetIntegerPropertyIfExists(const AObject : TObject; const APropName : string; const AValue : integer):Boolean;
    
16. var
    
17.   PropInfo:PPropInfo;
    
18. begin
    
19.   PropInfo := GetPropInfo(AObject.ClassInfo, APropName);
    
20.   if Assigned(PropInfo) and (PropInfo^.PropType^.Kind = tkInteger) then
    
21.   begin
    
22.     SetOrdProp(AObject, PropInfo, AValue);
    
23.     Result := True;
    
24.   end else
    
25.     Result := False;
    
26. end;
    
27. 
    
28. //調用,把窗體的 Font.Size 屬性設為 9
    
29. procedure TFrmTest.FormCreate(Sender: TObject);
    
30. var
    
31.   objTemp : TObject;
    
32. begin
    
33.   objTemp := GetObjectProperty(Self, 'Font');
    
34.   if Assigned(objTemp) then
    
35.     SetIntegerPropertyIfExists(objTemp, 'Size', 9);
    
36. end;

複製代碼