ADDR

Syntaxe

Paramètres

Retour

Description

Cette fonction retourne le pointeur d'une adresse de variable, fonction ou procédure.

Remarques

• On peut obtenir le même résultat que cette fonction en utilisant l'opérateur «@», lequel retourne un pointeur typé.
• Addr est une fonction de compatibilité historique : La fonction Addr est une relique des anciennes versions de Pascal, principalement utilisée dans Turbo Pascal et Delphi en mode compatibilité. Elle renvoie l'adresse d'une variable ou d'une procédure, mais son utilisation est obsolète dans les versions modernes de Free Pascal, où l'opérateur @ est préféré. Free Pascal maintient cette fonction pour assurer la compatibilité avec du code ancien.
• Addr peut être utilisé avec des variables et des procédures : La fonction Addr peut être appliquée aussi bien aux variables qu'aux procédures/fonctions, permettant de récupérer leur adresse mémoire. Cela est utile dans des contextes comme les pointeurs de fonctions ou les appels à des API système nécessitant des adresses de mémoire. Exemple :
1. Procedure TestProc;Begin 
2.  WriteLn('Bonjour de  TestProc');
3. End;
4.  
5. Var
6.  P: Pointer;
7.  
8. BEGIN
9.  P:=Addr(TestProc);  { Récupération de l'adresse de TestProc }
10. END.


• Addr peut poser des problèmes de typage strict : Avec Free Pascal en mode strict, l'utilisation de Addr peut parfois entraîner des erreurs de typage, notamment si elle est utilisée avec des types fortement typés comme procedure of object. Il est alors recommandé d'utiliser @ et de s'assurer que les types correspondent exactement.
• Addr est parfois nécessaire dans des contextes d'interfaçage bas niveau : Lorsqu'on travaille avec des API en assembleur, des bibliothèques en C, ou des appels système, la fonction Addr peut être utile pour passer des adresses mémoire explicites. Par exemple, lorsqu'on passe des pointeurs de procédures à des fonctions en C via des appels cdecl, Addr peut être utilisé à la place de @ pour éviter certaines incompatibilités.
• Addr ne doit pas être utilisée avec des variables locales après la sortie d'une fonction : Si une variable locale est déclarée à l'intérieur d'une procédure et que son adresse est stockée à l'aide de Addr, l'accès à cette adresse après la fin de l'exécution de la procédure est dangereux, car la variable peut être écrasée par d'autres données. Cela peut entraîner un comportement indéfini. Exemple problématique :
1. Function GetPointer:Pointer;
2. Var
3.  LocalVar: Integer;
4. Begin
5.  LocalVar:=42;
6.  GetPointer:=Addr(LocalVar); { Mauvaise idée : LocalVar sera détruit après la sortie ! }
7. End;

Ici, GetPointer pointe vers une variable n'existant plus après la sortie de la fonction.

• Addr n'est pas nécessaire pour la compatibilité avec les pointeurs modernes : Dans Free Pascal, l'utilisation des pointeurs modernes (typage fort avec ^) ne nécessite pas Addr. Il est préférable d'utiliser @ et des références explicites plutôt que Addr, étant principalement un alias inutile en mode moderne. Exemple avec un pointeur :
1. Var
2.  X:Integer;
3.  P:^Integer;
4. BEGIN
5.  X:=10;
6.  P:=@X;  { Utilisation moderne de @ au lieu de Addr }
7. END.


• Addr ne fonctionne pas avec les méthodes de classe : Contrairement à @, pouvant être utilisé avec des méthodes de classe, la fonction Addr ne fonctionne pas correctement avec les méthodes liées aux objets (procedure of object). Cela signifie que si une méthode est associée à un objet, Addr ne peut pas être utilisé pour obtenir son adresse. Exemple non valide :
1. Type
2.  TMyClass=Class
3.   Procedure MyMethod;
4.  End;
5.  
6. Var
7.  P:Pointer;
8.  Obj:TMyClass;
9.   
10. BEGIN
11.  Obj:=TMyClass.Create;
12.  P:=Addr(Obj.MyMethod);  { Erreur : Addr ne fonctionne pas ici }
13. END.

Dans ce cas, @Obj.MyMethod doit être utilisé au lieu de Addr.

Exemple

Voici quelques exemples permettant d'afficher la valeur contenu dans X en passant par les variables Y et Z à l'aide de la fonction «Addr» :

Essayer maintenant !

on obtiendra le résultat suivant :

Voir également

Gladir.com - Langage de programmation - Free Pascal - Référence de procédures et fonctions - «SIZEOF»