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

最新推荐文章于 2025-07-28 07:35:13 发布

weixin_34008933

最新推荐文章于 2025-07-28 07:35:13 发布

阅读量73

点赞数

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/hermer/blog/319258

为什么80%的码农都做不了架构师？>>>

//要点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;

转载于:https://my.oschina.net/hermer/blog/319258