您的位置:首页 > 其它

用RTTI方法获取组件属性的类

2008-11-27 19:46 288 查看
最近在写脚本生成,所以用到了RTTI的系列方法,记载记之。

class function TSomeClass.GetCtmWnd(Component: TComponent): TPersistent;
var
  PropList: PPropList;
  ClassTypeInfo: PTypeInfo;
  classTypeData: PTypeData;
  vSize: integer;
  vPropName: string;
  vObject: TObject;
  i: integer;
begin
  result := nil;
  ClassTypeInfo := Component.ClassInfo;
  ClassTypeData := GetTypeData(ClassTypeInfo);
  if ClassTypeData.PropCount <> 0 then
  begin
    vSize :=  SizeOf(PPropInfo) * ClassTypeData.PropCount;
    GetMem(PropList, vSize);
    try
      GetPropInfos(Component.ClassInfo, PropList);
      for i := 0 to ClassTypeData.PropCount - 1 do
      begin
        if PropList[i]^.PropType^.Kind = tkClass then
        begin
          vPropName := PropList[i]^.Name;
          vObject := GetObjectProp(Component, vPropName);
          if vObject is TPersistent then
          begin
            result := TPersistent(vObject);
            break;
          end;
        end;
      end;
    finally
      FreeMem(PropList, vSize);
    end;
  end;
end;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息