paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added GetPropList function for TClass parameter

Browse Source 
git-svn-id: trunk@11811 -
This commit is contained in:
ivost 2008-09-21 00:56:06 +00:00
parent 69159eb9f3
commit fc6ae58b9b
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/objpas/typinfo.pp
View File

@ -208,10 +208,12 @@ Function GetPropInfo(AClass: TClass; const PropName: string; AKinds: TTypeKinds)
Function GetPropInfo(AClass: TClass; const PropName: string): PPropInfo;
Function FindPropInfo(Instance: TObject; const PropName: string): PPropInfo;
Function FindPropInfo(AClass:TClass;const PropName: string): PPropInfo;
Procedure GetPropInfos(TypeInfo : PTypeInfo;PropList : PPropList);
Function GetPropList(TypeInfo : PTypeInfo;TypeKinds : TTypeKinds; PropList : PPropList;Sorted : boolean = true):longint;
Function GetPropList(TypeInfo: PTypeInfo; out PropList: PPropList): SizeInt;
function GetPropList(AObject: TObject; out PropList: PPropList): Integer;
function GetPropList(AClass: TClass; out PropList: PPropList): Integer;
function GetPropList(Instance: TObject; out PropList: PPropList): Integer;
@ -780,10 +782,14 @@ begin
PropList:=Nil;
end;
function GetPropList(AObject: TObject; out PropList: PPropList): Integer;
function GetPropList(AClass: TClass; out PropList: PPropList): Integer;
begin
Result := GetPropList(PTypeInfo(AObject.ClassInfo), PropList);
Result := GetPropList(PTypeInfo(AClass.ClassInfo), PropList);
end;
function GetPropList(Instance: TObject; out PropList: PPropList): Integer;
begin
Result := GetPropList(Instance.ClassType, PropList);
end;
{ ---------------------------------------------------------------------