TSparseAnsiStringArray

type TSparseAnsiStringArray = class(ASparseArray)

protected

  function LocateItemRecord();

  procedure Rehash;

  function GetCount; override;

  function GetItem();

  procedure SetItem();

public

  procedure Assign(); override;

  function IsEqual(); override;

  property Item []: AnsiString; default; [rw]

  function LocateItem();

  property Count: Integer; [r]

  function IsEmpty; override;

  procedure Clear; override;

  procedure Delete(); override;

  function HasItem(); override;

  function FindFirst();

  function FindNext();

end;

TSparseAnsiStringArray

ASparseArray

AType

TObject