delphi - `overload` 关键字有什么区别吗？

Question

有时，我在未重载的方法后面有“overload”关键字。

除了代码的可读性和可维护性之外，这还有我应该注意的其他影响吗？

Answer 1

最大的区别在于，当方法的参数不正确时，错误消息对于非重载方法来说明显更好。

program Test;

procedure F(X: Integer);
begin
end;

procedure G(X: Integer); overload;
begin
end;

var
  P: Pointer = nil;

begin
  F(P); // E2010 Incompatible types: 'Integer' and 'Pointer'
  G(P); // E2250 There is no overloaded version of 'G' that can be called with these arguments
end.

更巧妙的是，重载方法可能会重载您不了解的函数。考虑标准的 IfThen 函数。 StrUtils.IfThen 只存在一次:

function IfThen(AValue: Boolean; const ATrue: string;
  AFalse: string = ''): string; overload; inline;

但它被标记为过载。这是因为它重载了 Math.IfThen，并且如果单个单元同时使用 Math 和 StrUtils，则会出现不合格的 IfThen > 将根据参数解析为正确的函数，而不管 uses 列表中单元的顺序如何。