Преглед на файлове

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

svenbarth преди 5 години
родител
ревизия
cbcbf73cbf
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  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;