TLapeStringMap

type generic TLapeStringMap <_T>= class(TLapeBaseClass)

public

type

  TTItems = TTItems;

  TTArrays = record

  Keys: TLapeStringList.TTArray;

  Items: array of _T;

end;

protected

  FStringList: TLapeStringList;

  FItems: TTItems;

  FCount: Integer;

  function getItem(); virtual;

  procedure setItem(); virtual;

  function getItemI(); virtual;

  procedure setItemI(); virtual;

  function getKey(); virtual;

  function getSorted; virtual;

  procedure setSorted(); virtual;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure Clear; virtual;

  function Insert(); virtual;

  function Add(); virtual;

  function Delete();

  function DeleteItem(); virtual;

  function IndicesOfItemI(); virtual;

  function IndicesOfItem(); virtual;

  function IndicesOfKey(); virtual;

  function IndexOfItemI(); virtual;

  function IndexOfItem(); virtual;

  function IndexOfKey(); virtual;

  function ExistsItem();

  function ExistsKey();

  procedure setKeyI(); virtual;

  procedure setKey(); virtual;

  procedure ImportFromArrays(); virtual;

  function ExportToArrays; virtual;

  property Items []: _T; default; [rw]

  property ItemsI []: _T; [rw]

  property Key []: lpString; [rw]

  property Count: Integer; [r]

  property Sorted: Boolean; [rw]

end;

TLapeStringMap

TLapeBaseClass

TObject,IUnknown