pascalabcnet/CodeExamples/Patterns/patterns-switch.pas

8 lines
197 B
ObjectPascal
Raw Normal View History

2018-05-01 19:29:39 +03:00
begin
var a: object := new List<integer>(arr(1, 2));
2018-04-20 09:04:59 +03:00
match a with
integer(var c): write(1);
boolean(var s): write(2);
List<integer>(var l) when l.Count > 0 : write(3)
2018-04-20 09:04:59 +03:00
end;
end.