51   IHashList<TKey, TValue> = interface(IDictionary<TKey, TValue>)
79   THashList<TKey, TValue> = class(TANTLRObject, IHashList<TKey, TValue>)
82       TPairEnumerator = class(TEnumerator<TPair<TKey, TValue>>)
84         FHashList: THashList<TKey, TValue>;
85         FOrderList: IList<TKey>;
88         FPair: TPair<TKey, TValue>;
89         function GetCurrent: TPair<TKey, TValue>;  in GetCurrent()
91         function DoGetCurrent: TPair<TKey, TValue>; override;  in DoGetCurrent()
94         constructor Create(const AHashList: THashList<TKey, TValue>);  argument
96         property Current: TPair<TKey, TValue> read GetCurrent;
99     FDictionary: IDictionary<TKey, TValue>;
100     FInsertionOrderList: IList<TKey>;
104     function GetItem(const Key: TKey): TValue;  in GetItem()  argument
105     procedure SetItem(const Key: TKey; const Value: TValue);
108     procedure Add(const Key: TKey; const Value: TValue);
109     procedure Remove(const Key: TKey);  argument
112     function TryGetValue(const Key: TKey; out Value: TValue): Boolean;  in TryGetValue()
113     procedure AddOrSetValue(const Key: TKey; const Value: TValue);
114     function ContainsKey(const Key: TKey): Boolean;  in ContainsKey()  argument
119     function GetEnumerator: TEnumerator<TPair<TKey, TValue>>;  in GetEnumerator()
121     property Items[const Key: TKey]: TValue read GetItem write SetItem; default;
168 procedure THashList<TKey, TValue>.Add(const Key: TKey; const Value: TValue);
175 procedure THashList<TKey, TValue>.AddOrSetValue(const Key: TKey;  argument
184 procedure THashList<TKey, TValue>.Clear;
191 function THashList<TKey, TValue>.ContainsKey(const Key: TKey): Boolean;  in THashList()  argument
196 function THashList<TKey, TValue>.ContainsValue(const Value: TValue): Boolean;  in THashList()
201 constructor THashList<TKey, TValue>.Create;
206 constructor THashList<TKey, TValue>.Create(const ACapacity: Integer);
211     FDictionary := TDictionary<TKey, TValue>.Create;
212     FInsertionOrderList := TList<TKey>.Create;
216     FDictionary := TDictionary<TKey, TValue>.Create(ACapacity);
217     FInsertionOrderList := TList<TKey>.Create;
222 function THashList<TKey, TValue>.GetCount: Integer;  in THashList()
227 function THashList<TKey, TValue>.GetEnumerator: TEnumerator<TPair<TKey, TValue>>;  in THashList()
232 function THashList<TKey, TValue>.GetItem(const Key: TKey): TValue;  in GetItem()  argument
237 procedure THashList<TKey, TValue>.Remove(const Key: TKey);  argument
244 procedure THashList<TKey, TValue>.SetItem(const Key: TKey; const Value: TValue);
255 procedure THashList<TKey, TValue>.TrimExcess;
261 function THashList<TKey, TValue>.TryGetValue(const Key: TKey;  in THashList()  argument
269 constructor THashList<TKey, TValue>.TPairEnumerator.Create(
270   const AHashList: THashList<TKey, TValue>);
278 function THashList<TKey, TValue>.TPairEnumerator.DoGetCurrent: TPair<TKey, TValue>;  in THashList()
283 function THashList<TKey, TValue>.TPairEnumerator.DoMoveNext: Boolean;  in THashList()
288 function THashList<TKey, TValue>.TPairEnumerator.GetCurrent: TPair<TKey, TValue>;  in THashList()
293 function THashList<TKey, TValue>.TPairEnumerator.MoveNext: Boolean;  in THashList()
306     FPair.Key := Default(TKey);