pascalabcnet/TestSuite/CompilationSamples/LambdaIf.pas
2016-12-12 21:57:41 +03:00

5 lines
87 B
ObjectPascal

begin
var p: procedure(x: integer);
p := x -> if True then Print(x);
p(666);
end.