Просмотр исходного кода

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

svenbarth 5 лет назад
Родитель
Сommit
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;