参数默认值

//带默认值的参数只能在后面
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(IntToStr(x));  //4

  x := MyFun(1,2);
  ShowMessage(IntToStr(x));  //5

  x := MyFun(1,2,3);
  ShowMessage(IntToStr(x));  //6
end;

转载于:https://www.cnblogs.com/del/archive/2007/12/06/985632.html