Implementación de la función Ord en Delphi

Question

Puramente como ejercicio en casa, con el objetivo de comprender mejor algunos aspectos básicos del lenguaje, traté de volver a implementar la función Ord, pero me encontré con un problema.

De hecho, la función existente Ord puede aceptar los argumentos de una variedad de diferentes tipos (AnsiChar, Char, WideChar, Enumeration, Integer, Int64) y puede volver número entero o Int64.

No puedo averiguar cómo declarar varias versiones de la misma función.

¿Cómo se debe codificar esto en Delphi?

Answer 1

Ord no se pueden codificar en Delphi. Aunque puede usar the overload directive para escribir varias funciones con el mismo nombre, no puede escribir la función Ord de esa manera porque funciona para una cantidad arbitraria de tipos de argumentos sin necesidad de definiciones múltiples. (No importa cuántas Ord sobrecargas que escribe, que siempre se puede llegar a un tipo que sus funciones no van a aceptar, pero que la voluntad del compilador.)

funciona de esa manera debido a compilador magia. El compilador conoce Ord y todos los tipos ordinales del programa, por lo que realiza las acciones de la función en línea. Otras funciones de magia del compilador incluyen Length (magia porque acepta tipos de matriz arbitraria), Str (magia porque acepta modificadores de anchura y precisión) y ReadLn (magia porque acepta un número arbitrario de parámetros).

Answer 2

No puedo averiguar cómo declarar varias versiones de la misma función.

Se llama function overloading. Los parámetros de entrada deben ser diferentes para cada versión, el tipo de devolución no importa. Por ejemplo:

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

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

// etc.