Changeset 560 for Common/UMemory.pas


Ignore:
Timestamp:
Sep 10, 2022, 11:35:01 AM (22 months ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
  • Added: Implode and explode method.
  • Added: Custom specialized generic classes.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Common/UMemory.pas

    r558 r560  
    4949procedure TPositionMemory.SetSize(AValue: Integer);
    5050begin
    51   inherited SetSize(AValue);
     51  inherited;
    5252  if FPosition > FSize then FPosition := FSize;
    5353end;
     
    106106begin
    107107  Size := 0;
    108   inherited Destroy;
     108  inherited;
    109109end;
    110110
Note: See TracChangeset for help on using the changeset viewer.