TFPCustomHashTable

type TFPCustomHashTable = class(TObject)

protected

  FHashTableSize: LongWord;

  function Chain();

  function CreateNewNode(); virtual; abstract;

  procedure AddNode(); virtual; abstract;

  function ChainLength(); virtual;

  function FindOrCreateNew(); virtual;

  procedure SetHashFunction(); virtual;

  function FindChainForAdd();

public

  constructor Create;

  constructor CreateWith();

  destructor Destroy; override;

  procedure ChangeTableSize(); virtual;

  procedure Clear; virtual;

  procedure Delete(); virtual;

  function Find();

  function IsEmpty;

  property HashFunction: THashFunction; [rw]

  property Count: LongWord; [r]

  property HashTableSize: LongWord; [rw]

  property HashTable: TFPObjectList; [r]

  property VoidSlots: LongWord; [r]

  property LoadFactor: Double; [r]

  property AVGChainLen: Double; [r]

  property MaxChainLength: LongWord; [r]

  property NumberOfCollisions: LongWord; [r]

  property Density: LongWord; [r]

end;

TFPCustomHashTable

TObject