Delphi中不同参数类型的函数

如何编写具有相同名称和不同参数类型的两个函数，如下所示：

  public
    { Public declarations }
    function MsgW(const Msg:String):Integer;
    function MsgW(const Msg:String;title:String):Integer;


function MsgW(const Msg:String;title:String):Integer;
Begin
  Result := MessageboxW(0,Pchar(Msg),Pchar(title),MB_OK);
End;

function MsgW(const Msg:String):Integer;
Begin
  Result := MessageboxW(0,Pchar(Msg),'MessageBoxW',MB_OK);
End;

---

使用

重载

指令

function MsgW(const Msg:String):Integer; overload;
function MsgW(const Msg:String;title:String):Integer; overload;

---

使用

重载

指令

function MsgW(const Msg:String):Integer; overload;
function MsgW(const Msg:String;title:String):Integer; overload;

---

这个相当敷衍的回答竟然获得了这么多人的支持，这似乎很奇怪。@MartynA的工作方式很神秘。有时你们会竭尽全力帮助别人只得到他的认可，有时你们会在几秒钟内写出答案，哇……我意识到这样做的方式很神秘（在我看来越来越令人沮丧）。我并不是想暗示+1有什么不好的地方，我只是认为这样做的总体思路是，好的Q和好的答案通过向上投票的方式渗透到顶部，在这样一个答案的情况下，我希望选民们可能会比他们现在更能缓和他们的热情。也许meta是一个，但我开始认为meta上的结果表明用户应该更多地离开。FWIW，我只需将其作为一个函数编写，并使用默认参数：

function MsgW（const Msg:string；const Title:string=''）：Integer

并且不要过载。@MartynA这是一个众所周知的现象。人们会对他们所知道的准确的东西进行投票。这样一个问题的答案非常简单，因为这个问题很简单，而且答案广为人知，因此获得了大量的选票，因为有大量的人相信他们自己会判断它是正确的。另一方面，对于那些晦涩难懂的问题，如果没有多少人具备必要的知识来回答，那么准确的答案往往会获得较少的赞成票。奇怪的是，这个相当敷衍的答案却获得了如此多的赞成票。@MartynA的工作方式很神秘。有时你们会竭尽全力帮助别人只得到他的认可，有时你们会在几秒钟内写出答案，哇……我意识到这样做的方式很神秘（在我看来越来越令人沮丧）。我并不是想暗示+1有什么不好的地方，我只是认为这样做的总体思路是，好的Q和好的答案通过向上投票的方式渗透到顶部，在这样一个答案的情况下，我希望选民们可能会比他们现在更能缓和他们的热情。也许meta是一个，但我开始认为meta上的结果表明用户应该更多地离开。FWIW，我只需将其作为一个函数编写，并使用默认参数：

function MsgW（const Msg:string；const Title:string=''）：Integer

并且不要过载。@MartynA这是一个众所周知的现象。人们会对他们所知道的准确的东西进行投票。这样一个问题的答案非常简单，因为这个问题很简单，而且答案广为人知，因此获得了大量的选票，因为有大量的人相信他们自己会判断它是正确的。另一方面，对于那些晦涩难懂的问题，如果没有多少人具备必要的知识来回答，那么准确的答案往往会获得较少的选票。