TFPHashList

type TFPHashList = class(TObject)

protected

  function Get();

  procedure Put();

  procedure SetCapacity();

  procedure SetCount();

  procedure RaiseIndexError();

  function AddStr();

  procedure AddToHashTable();

  procedure StrExpand();

  procedure SetStrCapacity();

  procedure SetHashCapacity();

  procedure ReHash;

public

  constructor Create;

  destructor Destroy; override;

  function Add();

  procedure Clear;

  function NameOfIndex();

  function HashOfIndex();

  function GetNextCollision();

  procedure Delete();

  class procedure Error();

  function Expand;

  function Extract();

  function IndexOf();

  function Find();

  function FindIndexOf();

  function FindWithHash();

  function Rename();

  function Remove();

  procedure Pack;

  procedure ShowStatistics;

  procedure ForEachCall();

  property Capacity: Integer; [rw]

  property Count: Integer; [rw]

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

  property List: PHashItemList; [r]

  property Strs: PChar; [r]

end;

TFPHashList

TObject