TLazListClassesInternalMem

type TLazListClassesInternalMem = object

protected

Type

  TMemRecord = record

  FirstItem: record

    case Integer of

      1: (

          Ptr: PByte;

        );

      2: (

          Idx: Integer;

        );

  end;

  Count: Integer;

  Capacity: Cardinal;

  Data: record

  end;

end;

  PMemRecord = ^TMemRecord;

  property CapacityFast: Cardinal; [r]

public

  procedure Init;

  procedure Alloc();

  procedure Free;

  function IsAllocated;

  property Capacity: Cardinal; [rw]

  property Count: Integer; [rw]

  property DataPointer: PByte; [r]

  property FirstItemPointer: PByte; [rw]

  property FirstItemIndex: Integer; [rw]

end;

TLazListClassesInternalMem