TCustomBucketList

type TCustomBucketList = class(TObject)

protected

  procedure GetBucketItem();

  function AddItem(); virtual;

  function BucketFor(); virtual; abstract;

  function DeleteItem(); virtual;

  procedure Error();

  function FindItem(); virtual;

  property Buckets: TBucketArray; [r]

  property BucketCount: Integer; [rw]

public

  destructor Destroy; override;

  procedure Clear;

  function Add();

  procedure Assign();

  function Exists();

  function Find();

  function ForEach();

  function Remove();

  property Data []: Pointer; default; [rw]

end;

TCustomBucketList

TObject