瀏覽代碼

* 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;