delphi - Delphi中Ord函数的实现

Question

纯粹作为在家练习，旨在更好地理解一些语言基础知识，我尝试重新实现 Ord 函数，但遇到了问题。

事实上，现有的 Ord 函数可以接受各种不同类型的参数(AnsiChar、Char、WideChar、Enumeration、Integer、Int64)，并且可以返回 Integer 或 Int64。

我不知道如何声明同一函数的多个版本。

在 Delphi 中应该如何编码？

Answer 1

I can't figure out how to declare multiple versions of the same function.

它的名字是 function overloading 。每个版本的输入参数必须不同，返回类型并不重要。例如:

function Ord(X: Char): Integer; overload;
begin
  // Whatever here
end;

function Ord(X: Integer): Integer; overload;
begin
  // Something
end;

// etc.