2023-05-08 00:07:12 +03:00
|
|
|
|
//!Несколько подпрограмм p0 могут быть вызваны
|
2021-10-24 15:43:45 +03:00
|
|
|
|
procedure p0(o: pointer) := exit;
|
|
|
|
|
|
procedure p0(o: array of integer) := exit;
|
|
|
|
|
|
|
|
|
|
|
|
procedure p1(p: ()->()) := exit;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
|
p1(()-> //Ошибка: Неверный тип переменной, которой присваивается лямбда-выражение
|
|
|
|
|
|
begin
|
|
|
|
|
|
|
|
|
|
|
|
// если закомментировать эту строчку - ошибки нет
|
|
|
|
|
|
p0(nil);
|
|
|
|
|
|
|
|
|
|
|
|
end);
|
|
|
|
|
|
end.
|
