摘要: //带默认值的参数只能在后面function MyFun(a:Integer; b:Integer=1; c:Integer=2): Integer;begin Result := a + b + c;end;procedure TForm1.Button1Click(Sender: TObject);var x: Integer;begin x := MyFun(1); ShowMessage(... 阅读全文
posted @ 2010-06-28 16:18 huhu0013 阅读(12241) 评论(0) 推荐(0) 编辑