Ignore:
Timestamp:
Jun 5, 2023, 6:44:57 PM (11 months ago)
Author:
chronos
Message:
  • Modified: Remove U prefix from unit names.
  • Modified: Updated Common package.
File:
1 moved

Legend:

Unmodified
Added
Removed
  • trunk/Packages/Common/Memory.pas

    r144 r145  
    1 unit UMemory;
     1unit Memory;
    22
    33interface
     
    4242  end;
    4343
     44
    4445implementation
    4546
     
    4849procedure TPositionMemory.SetSize(AValue: Integer);
    4950begin
    50   inherited SetSize(AValue);
     51  inherited;
    5152  if FPosition > FSize then FPosition := FSize;
    5253end;
     
    105106begin
    106107  Size := 0;
    107   inherited Destroy;
     108  inherited;
    108109end;
    109110
     
    119120
    120121end.
    121 
Note: See TracChangeset for help on using the changeset viewer.