TGeneralExtendedDictionaryA

type TGeneralExtendedDictionaryA = class(AExtendedDictionaryA)

protected

  FKeys: TAnsiStringArray;

  FValues: TExtendedArray;

  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: TAnsiStringArray; [r]

  property Values: TExtendedArray; [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;

TGeneralExtendedDictionaryA

AExtendedDictionaryA

ADictionaryA

ADictionaryBase

AType

TObject