Changeset 117 for trunk/Packages/Common/UMemory.pas

Timestamp:

Oct 23, 2022, 9:09:21 PM (19 months ago)

Author:

chronos

Message:

• Modified: Update Common package.

File:

• trunk/Packages/Common/UMemory.pas (modified) (2 diffs)

trunk/Packages/Common/UMemory.pas

@@ -49 +49 @@
 procedure TPositionMemory.SetSize(AValue: Integer);
 begin
-  inherited SetSize(AValue);
+  inherited;
   if FPosition > FSize then FPosition := FSize;
 end;
@@ -106 +106 @@
 begin
   Size := 0;
-  inherited Destroy;
+  inherited;
 end;