level 4
procedure TForm1.Button11Click(Sender: TObject);
function AddData(x:integer;y:real):integer;
begin result := 2*x;
end;
var F,Q:function(x:integer;y:real):integer;
begin
f := AddData; q := f;
end;
编译器一直提示f := AddData; 这句出错,网上资料中都是这种写法,没搞懂,应该怎么个写法,求解惑。
2014年03月26日 09点03分
1