pascalabcnet/TestSuite/intellisense_tests/dict1.pas

10 lines
245 B
ObjectPascal
Raw Permalink Normal View History

2018-01-07 14:20:51 +03:00
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.