理解 Delphi 的类(十) - 深入方法[10] - 默认参数

//要点10: 过程和函数都可以有一个或多个默认参数; 但必须在非默认参数后面

function MyFun(s1: string; s2: string='好人'): string;

begin

  Result := s1 + s2;

end;



{调用}

procedure TForm1.Button1Click(Sender: TObject);

var

  str1,str2: string;

begin

  str1 := '万一';

  str2 := '坏蛋';



  ShowMessage(MyFun(str1));      {万一好人}



  ShowMessage(MyFun(str1,str2)); {万一坏蛋}

end;