paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-18 15:59:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: typinfo GetPropList

Browse Source
This commit is contained in:
mattias 2018-07-11 23:04:37 +00:00
parent 55ecc09268
commit 949b1daf26
1 changed files with 70 additions and 13 deletions

83
packages/rtl/typinfo.pas
View File

@ -348,6 +348,11 @@ function GetInterfaceMember(aTIInterface: TTypeInfoInterface; const aName: Strin
function GetInterfaceMethods(aTIInterface: TTypeInfoInterface): TTypeMemberMethodDynArray;
function GetPropInfos(aTIClass: TTypeInfoClass): TTypeMemberPropertyDynArray;
function GetPropList(aTIClass: TTypeInfoClass; TypeKinds: TTypeKinds; Sorted: boolean = true): TTypeMemberPropertyDynArray;
function GetPropList(aTIClass: TTypeInfoClass): TTypeMemberPropertyDynArray;
function GetPropList(AClass: TClass): TTypeMemberPropertyDynArray;
function GetPropList(Instance: TObject): TTypeMemberPropertyDynArray;
function GetPropInfo(TI: TTypeInfoClass; const PropName: String): TTypeMemberProperty;
function GetPropInfo(TI: TTypeInfoClass; const PropName: String; const Kinds: TTypeKinds): TTypeMemberProperty;
function GetPropInfo(Instance: TObject; const PropName: String): TTypeMemberProperty;
@ -429,24 +434,21 @@ implementation
function GetClassMembers(aTIClass: TTypeInfoClass): TTypeMemberDynArray;
var
C: TTypeInfoClass;
i, Cnt, j: Integer;
i: Integer;
PropName: String;
Names: TJSObject;
begin
Cnt:=0;
Result:=nil;
Names:=TJSObject.new;
C:=aTIClass;
while C<>nil do
begin
inc(Cnt,length(C.Names));
C:=C.Ancestor;
end;
SetLength(Result,Cnt);
C:=aTIClass;
i:=0;
while C<>nil do
begin
for j:=0 to length(C.Names)-1 do
for i:=0 to length(C.Names)-1 do
begin
Result[i]:=C.Members[C.Names[j]];
inc(i);
PropName:=C.Names[i];
if Names.hasOwnProperty(PropName) then continue;
TJSArray(Result).push(C.Members[PropName]);
Names[PropName]:=true;
end;
C:=C.Ancestor;
end;
@ -616,6 +618,61 @@ begin
end;
end;
function GetPropList(aTIClass: TTypeInfoClass; TypeKinds: TTypeKinds;
Sorted: boolean): TTypeMemberPropertyDynArray;
function NameSort(a,b: JSValue): NativeInt;
begin
if TTypeMemberProperty(a).Name<TTypeMemberProperty(b).Name then
Result:=-1
else if TTypeMemberProperty(a).Name>TTypeMemberProperty(b).Name then
Result:=1
else
Result:=0;
end;
var
C: TTypeInfoClass;
i: Integer;
Names: TJSObject;
PropName: String;
Prop: TTypeMemberProperty;
begin
Result:=nil;
C:=aTIClass;
Names:=TJSObject.new;
while C<>nil do
begin
for i:=0 to C.PropCount-1 do
begin
PropName:=C.Properties[i];
if Names.hasOwnProperty(PropName) then continue;
Prop:=TTypeMemberProperty(C.Members[PropName]);
if not (Prop.TypeInfo.Kind in TypeKinds) then continue;
TJSArray(Result).push(Prop);
Names[PropName]:=true;
end;
C:=C.Ancestor;
end;
if Sorted then
TJSArray(Result).sort(@NameSort);
end;
function GetPropList(aTIClass: TTypeInfoClass): TTypeMemberPropertyDynArray;
begin
Result:=GetPropInfos(aTIClass);
end;
function GetPropList(AClass: TClass): TTypeMemberPropertyDynArray;
begin
Result:=GetPropInfos(TypeInfo(AClass));
end;
function GetPropList(Instance: TObject): TTypeMemberPropertyDynArray;
begin
Result:=GetPropList(Instance.ClassType);
end;
function GetPropInfo(TI: TTypeInfoClass; const PropName: String
): TTypeMemberProperty;
var