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

+ overload of GetPropList added

Browse Source
This commit is contained in:
florian 2005-02-26 11:37:01 +00:00
parent eb4b962cee
commit bda868e0e7
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/objpas/typinfo.pp
View File

@ -195,6 +195,8 @@ Function GetPropList(TypeInfo : PTypeInfo;TypeKinds : TTypeKinds; PropList : PP
{$else}
Function GetPropList(TypeInfo : PTypeInfo;TypeKinds : TTypeKinds; PropList : PPropList;Sorted : boolean = true):longint;
{$endif}
Function GetPropList(TypeInfo: PTypeInfo; out PropList: PPropList): SizeInt;
// Property information routines.
Function IsStoredProp(Instance: TObject;PropInfo : PPropInfo) : Boolean;
Function IsStoredProp(Instance: TObject; const PropName: string): Boolean;
@ -592,7 +594,7 @@ begin
PL^[Count]:=PI;
end;
Type TInsertProp = Procedure (PL : PProplist;PI : PPropInfo; Count : longint);
Type TInsertProp = Procedure (PL : PProplist;PI : PPropInfo; Count : longint);
//Const InsertProps : array[false..boolean] of TInsertProp = (InsertPropNoSort,InsertProp);
@ -642,6 +644,17 @@ begin
end;
Function GetPropList(TypeInfo: PTypeInfo; out PropList: PPropList): SizeInt;
begin
result:=GetTypeData(TypeInfo)^.Propcount;
if result>0 then
begin
getmem(PropList,result*sizeof(pointer));
GetPropInfos(TypeInfo,PropList);
end;
end;
{ ---------------------------------------------------------------------
Property access functions
---------------------------------------------------------------------}
@ -1517,7 +1530,10 @@ end;
end.
{
$Log$
Revision 1.37 2005-02-22 12:14:56 marco
Revision 1.38 2005-02-26 11:37:01 florian
+ overload of GetPropList added
Revision 1.37 2005/02/22 12:14:56 marco
* getproplist sorted param added.
Revision 1.36 2005/02/14 17:13:31 peter