Ord Funktion Implementierung in Delphi

Question

Rein als eine Übung zu Hause, zielte auf etwas Sprache Grundlagen zu verstehen, versuchte ich die Ord Funktion neu zu implementieren, aber ich stieß auf ein Problem.

In der Tat, die bestehenden Ord Funktionsargumente von einer Vielzahl von verschiedenen Typen annehmen können (AnsiChar, Char, WideChar, Enumeration, Integer, Int64) und kann Integer oder Int64 zurückzukehren.

Ich kann nicht herausfinden, wie mehrere Versionen der gleichen Funktion zu deklarieren.

Wie sollte dies in Delphi codiert werden?

Answer 1

Ord kann nicht in Delphi codiert werden. Obwohl Sie the overload directive verwenden können, um mehrere Funktionen mit demselben Namen zu schreiben, können Sie die Ord Funktion auf diese Weise nicht schreiben, da es für eine beliebige Anzahl von Argumenttypen funktioniert, ohne mehrere Definitionen zu benötigen. (Egal, wie viele Ord Überlastungen Sie schreiben, kann ich kommen immer mit einem Typ, der Ihre Funktionen werden nicht akzeptieren, sondern dass der Wille des Compilers.)

Es funktioniert so, weil der Compiler Magie. Der Compiler kennt Ord und alle ordinalen Typen im Programm, also führt er die Aktionen der Funktion in-line aus. Andere Compiler-magische Funktionen umfassen Length (magisch, weil es beliebige Array-Typen akzeptiert), Str (magisch, weil es Modifizierer für Breite und Präzision akzeptiert) und ReadLn (magisch, weil es eine beliebige Anzahl von Parametern akzeptiert).

Answer 2

Ich kann nicht herausfinden, wie mehrere Versionen der gleichen Funktion zu deklarieren.

Es heißt function overloading. Eingabeparameter müssen für jede Version unterschiedlich sein, Rückgabetyp spielt keine Rolle. Zum Beispiel:

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

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

// etc.