paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 15:32:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow property list to be sorted (patch from Denis Grynuk, bug ID #36803)

Browse Source 
git-svn-id: trunk@45222 -
This commit is contained in:
michael 2020-05-02 15:49:58 +00:00
parent 3f6ad30b69
commit e53c2572ce
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-base/src/rttiutils.pp
View File

@ -47,7 +47,7 @@ type
FSize: Integer;
function Get(Index: Integer): PPropInfo;
public
constructor Create(AObject: TObject; Filter: TTypeKinds);
constructor Create(AObject: TObject; Filter: TTypeKinds; Sorted: Boolean = True);
destructor Destroy; override;
function Contains(P: PPropInfo): Boolean;
function Find(const AName: string): PPropInfo;
@ -157,14 +157,14 @@ end;
{ TPropInfoList }
constructor TPropInfoList.Create(AObject: TObject; Filter: TTypeKinds);
constructor TPropInfoList.Create(AObject: TObject; Filter: TTypeKinds; Sorted: Boolean);
begin
if AObject <> nil then
begin
FCount := GetPropList(AObject.ClassInfo, Filter, nil);
FCount := GetPropList(AObject.ClassInfo, Filter, nil, Sorted);
FSize := FCount * SizeOf(Pointer);
GetMem(FList, FSize);
GetPropList(AObject.ClassInfo, Filter, FList);
GetPropList(AObject.ClassInfo, Filter, FList, Sorted);
end
else
begin