Changeset 145 for trunk/Packages/Common/Memory.pas
- Timestamp:
- Jun 5, 2023, 6:44:57 PM (18 months ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/Common/Memory.pas
r144 r145 1 unit UMemory;1 unit Memory; 2 2 3 3 interface … … 42 42 end; 43 43 44 44 45 implementation 45 46 … … 48 49 procedure TPositionMemory.SetSize(AValue: Integer); 49 50 begin 50 inherited SetSize(AValue);51 inherited; 51 52 if FPosition > FSize then FPosition := FSize; 52 53 end; … … 105 106 begin 106 107 Size := 0; 107 inherited Destroy;108 inherited; 108 109 end; 109 110 … … 119 120 120 121 end. 121
Note:
See TracChangeset
for help on using the changeset viewer.