Delphi12 - AV in TIteratorBlock.MoveNextWhere

Issue #406 wontfix
Виталий Биньковский created an issue

type

TKey = Tuple<string, string>;

var dictAV := TCollections.CreateDictionary<TKey, string>;

dictAV.Add(TKey.Create('1', 'First'), 'Value');

dictAV.Add(TKey.Create('2', 'Second'), '');

var dictWhereAV := dictAV.Where(

‌ function(const item: TPair<TKey, string>): Boolean

‌ begin

‌ var key := item.Key.Value2; // AccessViolation

‌ Result := key.Equals('Second');

‌ end).ToArray;

Comments (4)

  1. Log in to comment