在助手中重载全局函数

Question

我正在为TPoint 添加一些函数，如果我使用与全局函数相同的名称，我无法在辅助函数中看到它。我是否遗漏了什么，或者我不能简单地做到这一点？

uses 
  Winapi.Windows, Math;

type
  TPointHelper = record helper for TPoint
    function InRange(const AMin, AMax: TPoint): Boolean;
  end;

implementation

function TPointHelper.InRange(const AMin, AMax: TPoint): Boolean;
begin
  Result := InRange(X, AMin.X, AMax.X) and InRange(Y, AMin.Y, AMax.Y);
end;

end.

Answer 1

您需要完全限定对InRange 的调用，因为编译器会在最近的范围内看到InRange。这是您的辅助方法。您的代码应为：

function TPointHelper.InRange(const AMin, AMax: TPoint): Boolean;
begin
  Result := Math.InRange(X, AMin.X, AMax.X) and Math.InRange(Y, AMin.Y, AMax.Y);
end;