TGeneralObjectDictionaryU

type TGeneralObjectDictionaryU = class(AObjectDictionaryU)

protected

  FKeys: TUnicodeStringArray;

  FValues: TObjectArray;

  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;

  function GetIsItemOwner; override;

  procedure SetIsItemOwner(); override;

  procedure SetItem(); override;

public

  constructor Create;

  constructor CreateEx();

  destructor Destroy; override;

  property Keys: TUnicodeStringArray; [r]

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

  function ReleaseItem(); override;

  procedure ReleaseItems; override;

  procedure FreeItems; override;

end;

TGeneralObjectDictionaryU

AObjectDictionaryU

ADictionaryU

ADictionaryBase

AType

TObject