匿名方法[2]

原創

2020-02-21 16:28

Tfun = REFERENCE to function(c, y: integer): integer;

function Ta(x, y: integer; Tb: Tfun): integer;
begin
  result := Tb(x, y);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  f: Tfun;
begin
  f := function(x, y: integer): integer  //此處沒有分號;函數還沒有寫完
  begin
    result := x + y;
  end;
  ShowMessageFmt('%D',[(Ta(13,12,f))]);
end;