Удалил два файла с ошибками - обобщенная функция присваивается делегату
This commit is contained in:
parent
63274c3c5e
commit
da16d41c58
|
|
@ -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.
|
||||
|
|
@ -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.
|
||||
Loading…
Reference in a new issue