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

* Order of parent/child methods is now same as in delphi documentation

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-12-23 19:47:19 +01:00
parent 774e96f8a9
commit a6e7e3e743
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -7654,7 +7654,7 @@ begin
parentfields := parent.GetFields;
end;
fFields := Concat(parentfields, selffields);
fFields := Concat(selffields, parentfields);
Result := fFields;
end;
@ -7890,7 +7890,7 @@ begin
parentmethods := parent.GetMethods;
end;
fMethods := Concat(parentmethods, selfmethods);
fMethods := Concat(selfmethods, parentmethods);
Result := fMethods;
end;

6
packages/rtl-objpas/tests/tests.rtti.pas
View File

@ -1745,7 +1745,7 @@ begin
AssertEquals('Correct class type',TRttiInstanceType,Obj2.ClassType);
A:=RttiData.GetFields;
AssertEquals('Class field Count',11,Length(A));
For I:=0 to 9 do
For I:=1 to 10 do
AssertSame('Field parent'+IntToStr(i)+' is parent class', Obj2,A[I].Parent);
A:=RttiData.GetDeclaredFields;
AssertEquals('Class declared field Count',1,Length(A));
@ -1822,7 +1822,7 @@ begin
A:=RttiData.GetMethods;
aCount:=Length(A);
AssertEquals('Full Count',13,aCount);
CheckMethod('Full',12, A[12],'PublicAdditionalMethod',mvPublic);
CheckMethod('Full',0, A[0],'PublicAdditionalMethod',mvPublic);
A:=RttiData.GetDeclaredMethods;
aCount:=Length(A);
AssertEquals('Full declared Count',1,aCount);
@ -1859,7 +1859,7 @@ begin
A:=RttiData.GetMethods;
aCount:=Length(A);
AssertEquals('Full Count',13,aCount);
For I:=0 to 11 do
For I:=1 to 12 do
AssertSame('Parent is RTTI of parent class',Obj2,A[I].Parent);
A:=RttiData.GetDeclaredMethods;
aCount:=Length(A);