From 69c9c7ce6d18e1c2195c791cb1c590589567dae0 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 6 Oct 2020 08:21:06 +0000
Subject: [PATCH] * Patch from Henrique Werlang to correct sort order in
 GetMethods

---
 packages/rtl/rtti.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/packages/rtl/rtti.pas b/packages/rtl/rtti.pas
index 53ffdd0..2c4212a 100644
--- a/packages/rtl/rtti.pas
+++ b/packages/rtl/rtti.pas
@@ -731,14 +731,15 @@ begin
     Inc(MethodCount, BaseClass.StructTypeInfo.MethodCount);
     BaseClass := BaseClass.GetAncestor;
   end;
-  SetLength(Result, StructTypeInfo.MethodCount);
+  SetLength(Result, MethodCount);
   BaseClass := Self;
+  MethodCount:=0;
   while Assigned(BaseClass) do
   begin
     for A := 0 to Pred(BaseClass.StructTypeInfo.MethodCount) do
     begin
-      Dec(MethodCount);
       Result[MethodCount] := TRttiMethod.Create(BaseClass, BaseClass.StructTypeInfo.GetMethod(A));
+      Inc(MethodCount);
     end;
     BaseClass := BaseClass.GetAncestor;
   end;