20 lines
590 B
ObjectPascal
20 lines
590 B
ObjectPascal
//!Невозможно преобразовать функциональный тип в процедурный тип
|
||
uses System.Threading.Tasks;
|
||
|
||
type
|
||
c1<T> = class
|
||
field1: Task<T>;
|
||
|
||
procedure pr1(act: System.Action);
|
||
begin
|
||
Task.CompletedTask.ContinueWith(r-> act.Invoke);
|
||
end;
|
||
|
||
// если закомментировать этот кусок, то перестанет компилироваться pr1 о_О
|
||
procedure pr2<T1>(fun: Func<T, T1>);
|
||
begin
|
||
field1.ContinueWith( e-> fun.Invoke(e.result) );
|
||
end;
|
||
end;
|
||
|
||
begin end. |