TO32IntList

type TO32IntList = class

protected

  FAllowDups: Boolean;

  FCount: Integer;

  FIsSorted: Boolean;

  FList: TList;

  function ilGetCapacity;

  function ilGetItem();

  procedure ilSetCapacity();

  procedure ilSetCount();

  procedure ilSetIsSorted();

  procedure ilSetItem();

  procedure ilSort;

public

  constructor Create;

  destructor Destroy; override;

  function Add();

  procedure Clear;

  procedure Insert();

  property AllowDups: Boolean; [rw]

  property Capacity: Integer; [rw]

  property Count: Integer; [rw]

  property IsSorted: Boolean; [rw]

  property Items []: Integer; default; [rw]

end;

TO32IntList

TObject