2013年1月4日
摘要: 关于递归函数下面的代码如果点击btn1按钮会返回什么值呢?procedure TForm1.btn1Click(Sender: TObject);begin ShowMessage(inttostr(test(1)));end;function TForm1.test(aI:integer): Integer;var i,iResult: Integer;begin i := aI+1; if i<10 then test(i) else iResult := i; Result := iResult;end;我希望它的能够返回'10',但是实际结果却是'2 阅读全文
posted @ 2013-01-04 16:17 上上智 阅读(353) 评论(0) 推荐(0) 编辑