TplHashTable

type TplHashTable = class(TplContainer)

protected

  FValSize: Cardinal;

  FHashSize: Integer;

  FEqual: TUntypedCompareFunc;

  FHash: THashFunc;

  FMaxNodes: LongInt;

  htHeads: PHashArray;

  htTails: PHashArray;

  htLRU: LongInt;

  htIgnoreDups: Boolean;

  procedure htInsertNode();

  procedure htIterate();

  procedure htSetEqual();

  procedure htSetHash();

  procedure htSetHashSize();

  procedure htSetMaxNodes();

  procedure htMoveToFront();

  procedure htFindNode();

  procedure htUpdateLRU();

  procedure htDeleteOldestNode;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure LoadFromStream(); override;

  procedure StoreToStream(); override;

  procedure Clear; override;

  function Exists();

  procedure Add();

  procedure Delete();

  procedure Update();

  function Find();

  procedure Assign(); override;

  procedure Join();

  function Iterate();

  procedure NodeRemoved(); virtual;

  function BinCount();

  property ValSize: Cardinal; [r]

  property Equal: TUntypedCompareFunc; [rw]

  property Hash: THashFunc; [rw]

  property HashSize: Integer; [rw]

  property MaxNodes: LongInt; [rw]

end;

TplHashTable

TplContainer

TObject