理解 Delphi 的类(十) - 深入方法[23]

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

{下面的函数重名, 但参数不一样, 此类情况必须加 overload 指示字;调用时, 会根据参数的类型和个数来决定调用哪一个;这就是重载.
}function MyFun(s: string): string; overload;
beginResult := '参数是一个字符串: ' + s;
end;function MyFun(i: Integer): string; overload;
beginResult := '参数是一个整数: ' + IntToStr(i);
end;function MyFun(x,y: Integer): string; overload;
beginResult := Format('参数是两个整数: %d 和 %d', [x,y]);
end;{测试}
procedure TForm1.Button1Click(Sender: TObject);
varstr: string;
beginstr := MyFun('万一');ShowMessage(str);     {参数是一个字符串: 万一}str := MyFun(99);ShowMessage(str);     {参数是一个整数: 99}str := MyFun(6,8);ShowMessage(str);     {参数是两个整数: 6 和 8}
end;//另外还要注意关于重载和默认参数的问题, 譬如, 下面的重载是不可行的:
function MyFun(x,y: Integer): string; overload;
beginResult := IntToStr(x + y);
end;function MyFun(x: Integer; y: Integer = 1): string; overload;
beginResult := IntToStr(x + y);
end;{因为当我们这样调用时: MyFun(a,b); 系统就不知道要调用哪个了!}

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

理解 Delphi 的类(十) - 深入方法[23] - 重载相关推荐

理解 Delphi 的类(十) - 深入方法[17] - 提前声明
为什么80%的码农都做不了架构师?>>> //要点17: 如果前面的方法要调用后面的方法, 后面的方法需要提前声明 function MyFunB(x: Integer): I ...
理解 Delphi 的类(十) - 深入方法[27] - 递归函数: 简单示例
为什么80%的码农都做不了架构师?>>> //所谓递归函数, 就是自己调用自己的函数, 先来个简单的例子:{递归调用的简单示例} procedure alert(i: Inte ...
理解 Delphi 的类(十) - 深入方法[28] - 递归函数实例: 搜索当前目录下的所有嵌套目录...
为什么80%的码农都做不了架构师?>>> //上面一个例子不能说明递归函数的本质, 直接来个实用的函数吧, 刚好要用.unit Unit1;interfaceusesWindo ...
理解 Delphi 的类(十) - 深入方法[9] - 调用时的括号
为什么80%的码农都做不了架构师?>>> //要点9: 没有参数的过程或函数, 在调用时可以省略 (); 也可以带着 function MyFun: string; begin ...
理解 Delphi 的类(十) - 深入方法[4] - 共同类型的参数的简化写法
//要点4: 多个相同类型的参数可以简化写法 function MyFun(str: string; x,y,z: Integer): string; beginResult := str + Int ...
理解 Delphi 的类(十) - 深入方法[13] - 在 interface 区声明的方法
为什么80%的码农都做不了架构师?>>> //要点13: 需要给其他单元调用, 必须在 interface 声明, 但必须在 uses 区后面 unit Unit1;inter ...
理解 Delphi 的类(十) - 深入方法[2] - 参数分割
//要点2: 过程和函数都可以有一个或多个参数; 参数用 ; 号分割 procedure MyProc(i: Integer); beginShowMessage(IntToStr(i)); end; ...
理解 Delphi 的类(十) - 深入方法[15] - 调用其他单元的函数
为什么80%的码农都做不了架构师?>>> //要点15: 调用其他单元的函数 //包含函数的单元: unit Unit2;interfacefunction MyFun(x,y ...
理解 Delphi 的类(十一) - 深入类中的方法[8] - 抽象方法与抽象类
//抽象方法类似与接口; 在没有接口的年代 Delphi 是用抽象方法来模拟接口的; 我想它最终会被接口替代.{下面就定义了两个抽象方法} TMyClass = class(TObject)proce ...

理解 Delphi 的类(十) - 深入方法[23] - 重载

理解 Delphi 的类(十) - 深入方法[23] - 重载相关推荐

最新文章

热门文章