作业完成 ：）

Question

function Calc(A, B: Integer; F: TFunc): Integer;
var
  vF : TFunc;
begin
  { TODO : 填写 }
  F := Add;
  Result := A + B + F(A , B) ;
end;
这儿有错吗？

Answer 1

function Calc(A, B: Integer; F: TFunc): Integer;
var
  vF : TFunc; //没有用的变量请不要留下
begin
  F := Add; //F是参数，已经在调用的时候赋值，怎么写这句话？
  Result := A + B + F(A , B) ; //我原来说的是Result := F(A, B);
end;