函数作为参数传给另一函数

时间:2010-02-01 13:18:57  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:: integer;begin  Result := IntIn - 2;end;procedure PassAFunction(var IntIn : integer;fn : AFunctionType);begin  IntIn := fn(IntIn);end;procedure TForm1.Button1Click(Sender: TObject);vari : integer;begin  i := 10;  
  正文:type
AFunctionType = function(IntIn : integer) : integer;

function AddProc(IntIn : integer) : integer;
begin
  Result := IntIn + 1;
end;

function SubProc(IntIn : integer) : integer;
begin
  Result := IntIn - 2;
end;

procedure PassAFunction(var IntIn : integer;
fn : AFunctionType);
begin
  IntIn := fn(IntIn);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;

begin
  i := 10;
  
  PassAFunction(i, @AddProc);
  ShowMessage(IntToStr(i));
  
  PassAFunction(i, @SubProc);
  ShowMessage(IntToStr(i));
end;

函数作为参数传给另一函数》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12717.html


关键字:

关于《函数作为参数传给另一函数》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td