pascalabcnet/TestSuite/intellisense_tests/dict1.pas
Бондарев Иван 36c1f1f393 bug fix #637
2018-01-07 12:20:51 +01:00

10 lines
245 B
ObjectPascal

begin
var Floors := new Dictionary<(cardinal, cardinal), List<integer>>;
var sz := (1, 2);
foreach var a{@var a: (cardinal,cardinal);@} in Floors.Keys do
begin
end;
var l{@var l: List<integer>;@} := Floors[sz];
l.Add(23);
end.