TLapeDeclCollectionDict

type TLapeDeclCollectionDict = class(TLapeDeclCollection)

protected

type

  TBucket = record

  Items: TLapeDeclArray;

  Count: Integer;

end;

  TBucketArray = array of TBucket;

protected

  FBuckets: TBucketArray;

  procedure NameChanged(); override;

  function getBucketIndex();

  function getCount; override;

  function getItem(); override;

public

  constructor Create();

  procedure Add(); override;

  function Delete(); override;

  procedure Clear; override;

  function Get();

  function GetByClass(); override;

  function IndexOf(); override;

  function Exists(); override;

  function ExportToArray; override;

end;

TLapeDeclCollectionDict

TLapeDeclCollection

TLapeBaseClass

TObject,IUnknown