//要点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;
深入方法(10)- 默认参数
猜你喜欢
转载自www.cnblogs.com/fansizhe/p/12729700.html
今日推荐
周排行