Browse Source

* TStack<>.TrimExcess should override TCustomList<>.TrimExcess

svenbarth 4 years ago
parent
commit
cbcbf73cbf
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/rtl/generics.collections.pas

+ 1 - 1
packages/rtl/generics.collections.pas

@@ -326,7 +326,7 @@ type
     function Pop: T;
     function Peek: T;
     function Extract: T;
-    procedure TrimExcess;
+    procedure TrimExcess; override;
     property Count: SizeInt read GetCount;
   end;