伴水兄，在吗，其他高手也可以，我只想问一下一个函数的问题，同志们帮忙up..

Question

收下来，说不定啥时候用的上。

Answer 1

////////Begin Source
uses
  TypInfo;function GetPropList(TypeInfo: PTypeInfo; out PropList: PPropList): Integer; overload;
begin
  Result := GetTypeData(TypeInfo)^.PropCount;
  if Result > 0 then
  begin
    GetMem(PropList, Result * SizeOf(Pointer));
    GetPropInfos(TypeInfo, PropList);
  end;
end;function GetPropList(AObject: TObject; out PropList: PPropList): Integer; overload;
begin
  Result := GetPropList(PTypeInfo(AObject.ClassInfo), PropList);
end;
//.......加两个函数//你用的是Delphi5.0