mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 09:06:14 +02:00
* added GetPropList function for TClass parameter
git-svn-id: trunk@11811 -
This commit is contained in:
parent
69159eb9f3
commit
fc6ae58b9b
@ -208,10 +208,12 @@ Function GetPropInfo(AClass: TClass; const PropName: string; AKinds: TTypeKinds)
|
|||||||
Function GetPropInfo(AClass: TClass; const PropName: string): PPropInfo;
|
Function GetPropInfo(AClass: TClass; const PropName: string): PPropInfo;
|
||||||
Function FindPropInfo(Instance: TObject; const PropName: string): PPropInfo;
|
Function FindPropInfo(Instance: TObject; const PropName: string): PPropInfo;
|
||||||
Function FindPropInfo(AClass:TClass;const PropName: string): PPropInfo;
|
Function FindPropInfo(AClass:TClass;const PropName: string): PPropInfo;
|
||||||
|
|
||||||
Procedure GetPropInfos(TypeInfo : PTypeInfo;PropList : PPropList);
|
Procedure GetPropInfos(TypeInfo : PTypeInfo;PropList : PPropList);
|
||||||
Function GetPropList(TypeInfo : PTypeInfo;TypeKinds : TTypeKinds; PropList : PPropList;Sorted : boolean = true):longint;
|
Function GetPropList(TypeInfo : PTypeInfo;TypeKinds : TTypeKinds; PropList : PPropList;Sorted : boolean = true):longint;
|
||||||
Function GetPropList(TypeInfo: PTypeInfo; out PropList: PPropList): SizeInt;
|
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;
|
PropList:=Nil;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function GetPropList(AClass: TClass; out PropList: PPropList): Integer;
|
||||||
function GetPropList(AObject: TObject; out PropList: PPropList): Integer;
|
|
||||||
begin
|
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;
|
end;
|
||||||
|
|
||||||
{ ---------------------------------------------------------------------
|
{ ---------------------------------------------------------------------
|
||||||
|
Loading…
Reference in New Issue
Block a user