Changeset 456 for trunk/Packages/Common/Memory.pas
- Timestamp:
- May 30, 2023, 11:31:10 AM (18 months ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/Common/Memory.pas
r455 r456 1 unit UMemory;1 unit Memory; 2 2 3 3 interface … … 49 49 procedure TPositionMemory.SetSize(AValue: Integer); 50 50 begin 51 inherited SetSize(AValue);51 inherited; 52 52 if FPosition > FSize then FPosition := FSize; 53 53 end; … … 106 106 begin 107 107 Size := 0; 108 inherited Destroy;108 inherited; 109 109 end; 110 110 … … 120 120 121 121 end. 122
Note:
See TracChangeset
for help on using the changeset viewer.