Удалил два файла с ошибками - обобщенная функция присваивается делегату

This commit is contained in:
Mikhalkovich Stanislav 2025-06-25 19:07:18 +03:00
parent 63274c3c5e
commit da16d41c58
2 changed files with 0 additions and 40 deletions

View file

@ -1,17 +0,0 @@
var i: integer;
procedure p0(p: byte->());
begin
Inc(i);
end;
procedure p1<T>(o: T);
begin
Inc(i);
end;
begin
p0(p1&<byte>);
//Ошибка: Нельзя преобразовать тип procedure(o: T) к Action<byte>
p0(p1);
assert(i = 2);
end.

View file

@ -1,23 +0,0 @@
var i: integer;
procedure p0(p: byte->());
begin
p(1);
Inc(i);
end;
type
t1 = class
static procedure p1<T>(o: T) := exit;
procedure p2<T>(o: T) := exit;
end;
begin
// OK
p0(t1.p1&<byte>);
p0(t1.Create.p2&<byte>);
// А эти 2 падают
p0(t1.p1);
p0(t1.Create.p2);
assert(i = 4);
end.