随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//要点3: 在调用时, 参数使用 , 分割的
function MyFun(x: Integer; y: Integer): Integer;
begin
  Result := x + y;
end;

{调用}
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := MyFun(1,2);
end;

posted on 2008-01-14 21:15  万一  阅读(...)  评论(...编辑  收藏