Changeset 148 for trunk/Packages/Common/Memory.pas
- Timestamp:
- Jun 5, 2023, 7:40:45 PM (18 months ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/Common/Memory.pas
r147 r148 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.