Comment recréer une fonction récupérant l'élément le plus élevé d'un objet?

Question

Mon plan est de faire une fonction qui récupère l'élément le plus élevé d'un objet, pour ainsi dire, la gamme supérieure d'un tableau.En d'autres termes, j'essaie d'obtenir le code de la fonction High().

Ce que j'ai essayé jusqu'à présent:

function High2(var X):integer; 
begin 
    Result:=Pbyte(Cardinal(@X)-1)^-1; 
end; 

La fonction doit lire au-dessus de la valeur (longueur) avant la position du premier élément de l'objet (tableau/string) et le retourner a diminué de 1. Cependant, il ne récupère pas les résultats corrects sur le type de tableau statique ou dynamique. Comment puis-je recréer la fonction High() en Pascal?

Answer 1

Vous ne savez pas pourquoi vous voudriez faire cela quand Delphi a déjà une fonction magique de compilateur High() intégrée, mais OK, c'est parti.

Tableaux statiques: impossible à faire. Aucune information de taille n'est stockée à l'exécution car la taille est connue du compilateur et ne peut pas changer. High() laisse simplement tomber le nombre nécessaire dans le code en tant que constante. Tableaux dynamiques: Le compilateur convertit High en un appel à DynArrayHigh dans l'unité System, qui renvoie DynArrayLength - 1. DynArrayLength recule de 4 octets depuis le début du tableau (vous ne faites que reculer de 1) et renvoie le longueur comme un entier au lieu d'un octet.

J'espère que cela vous sera utile. Pourquoi n'utilisez-vous pas simplement High, BTW?

Answer 2

Les fonctions High() (et Low()) sont appelées «fonctions standard», ce qui signifie qu'elles sont intrinsèques au compilateur. Comme Write et Writeln, ils n'existent pas vraiment comme des déclarations de fonction Pascal normales. Le compilateur s'assure qu'ils sont dans la portée de l'unité "Système" simplement pour des raisons de commodité et pour permettre la fonction du même nom dans d'autres portées. Cela vous permet également de les qualifier en utilisant System.High() pour référencer explicitement la version de l'unité système. Comme ils sont intrinsèques, le compilateur générera automatiquement la séquence de code appropriée pour le type considéré. Cela signifie également qu'il est pratiquement impossible d'en dupliquer toutes les fonctionnalités. Il suffit de coller avec les fonctions standard intrinsèques.