TGeneralLongIntDictionaryB

type TGeneralLongIntDictionaryB = class(ALongIntDictionaryB)

protected

  FKeys: TRawByteStringArray;

  FValues: TLongIntArray;

  FLookup: array of IntegerArray;

  FHashSize: Integer;

  FCaseSensitive: Boolean;

  FAddOnSet: Boolean;

  FDuplicatesAction: TDictionaryDuplicatesAction;

  function LocateKey(); virtual;

  procedure DeleteByIndex();

  procedure Rehash;

  function GetHashTableSize;

  procedure RaiseIndexError;

  function GetKeysCaseSensitive; override;

  function GetAddOnSet; override;

  procedure SetAddOnSet(); override;

  function GetDuplicatesAction; override;

  procedure SetDuplicatesAction(); override;

  procedure SetItem(); override;

public

  constructor Create;

  constructor CreateEx();

  destructor Destroy; override;

  property Keys: TRawByteStringArray; [r]

  property Values: TLongIntArray; [r]

  property HashTableSize: Integer; [r]

  procedure Clear; override;

  procedure Delete(); override;

  function HasKey(); override;

  procedure Rename(); override;

  function Count; override;

  function GetKeyByIndex(); override;

  procedure DeleteItemByIndex(); override;

  procedure Add(); override;

  function GetItemByIndex(); override;

  procedure SetItemByIndex();

  function LocateItem(); override;

  function LocateNext(); override;

end;

TGeneralLongIntDictionaryB

ALongIntDictionaryB

ADictionaryB

ADictionaryBase

AType

TObject