ABitArray

type ABitArray = class(AArray)

protected

  function GetBit(); virtual; abstract;

  procedure SetBit(); virtual; abstract;

  function GetRangeL(); virtual;

  procedure SetRangeL(); virtual;

public

  procedure Assign(); override;

  function IsEqual(); override;

  procedure Delete(); override;

  procedure Insert(); override;

  function AppendArray(); override;

  procedure ExchangeItems(); override;

  function CompareItems(); override;

  function DuplicateRange(); override;

  property Bit []: Boolean; default; [rw]

  property RangeL []: Word32; [rw]

  function IsRange(); virtual;

  procedure Fill(); virtual;

  function AppendItem(); virtual;

  procedure Invert; virtual;

  function Find(); virtual;

  function FindRange(); virtual;

end;

ABitArray

AArray

AType

TObject