单元typinfo里面这两个函数怎么用: SetObjectProp和SetVariantProp

Question

单元typinfo里面这两个函数怎么用: SetObjectProp和SetVariantProp
怎么老是出错！
SetVariantProp(button1,'caption',name);

Answer 1

SetObjectProp 用于设置属性的对象句柄。ValidateClass 参数表示是否需要检查传入的对象类型与属性信息的类信息是否兼容。  procedure SetObjectProp(Instance: TObject; PropInfo: PPropInfo;
    Value: TObject; ValidateClass: Boolean = True);
  procedure SetObjectProp(Instance: TObject; const PropName: string;
    Value: TObject);例子：
  var
    MyFont: TFont;
  begin
    MyFont := TFont.Create;
    MyFont.Height :=  20;
    SetObjectProp(Self, 'Font', MyFont);
  end;

Answer 2

for i=0 to self.ComponentCount-1 do
  setvariantprop(Components[i],'readonly',true);