20 lines
589 B
ObjectPascal
20 lines
589 B
ObjectPascal
//!Нельзя вывести тип анонимного делегата с генерик-параметрами. Укажите тип переменной явно.
|
||
type
|
||
t1<T> = class
|
||
|
||
// Обязательно функция
|
||
function f1(b: T): byte := 1;
|
||
|
||
end;
|
||
|
||
procedure p1<T>;
|
||
begin
|
||
// Обязательно <T> из заголовка подпрограммы (не из описавшего её класса!)
|
||
var a: t1<T>;
|
||
// Обязательно авто-определение типа делегата f
|
||
var f := a.f1;
|
||
end;
|
||
|
||
begin
|
||
|
||
end. |