pascalabcnet/TestSuite/lambda_tryexcept.pas

12 lines
244 B
ObjectPascal
Raw Permalink Normal View History

2019-04-09 21:33:09 +03:00
begin
var p: procedure := ()->
begin end;
try
except
on e: System.ArgumentException do;
on e: Exception do; // Ошибка: Повторно объявленный идентификатор e
end;
Assert(1=1)
end.