delphi – 如何使用RTTI设置嵌套属性的值

概述检查这个简化的示例(真实场景是不同的),我想设置一个对象的嵌套属性的值,在这种情况下,使用RTTI将TLabel组件的Font颜色设置为clRed. var p : TRttiProperty; p2: TRttiProperty; c : TRttiContext;begin c := TRttiContext.Create; try p := c.GetTy 检查这个简化的示例(真实场景是不同的),我想设置一个对象的嵌套属性的值,在这种情况下,使用RTTI将TLabel组件的Font颜色设置为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);

解决方法 以下代码将起作用.

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;

您需要从Label获取嵌入字体. TRttiProperty处理类型而不是实例.您需要调用GetValue()或SetValue()来处理实例.

您的原始代码是引用类型而不是实例.

总结

以上是内存溢出为你收集整理的delphi – 如何使用RTTI设置嵌套属性的值全部内容，希望文章能够帮你解决delphi – 如何使用RTTI设置嵌套属性的值所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。