[TP] Afficher l'adresse d'un pointeur

Salut,
j'ai ecris un programme simple en turbo pascal,à l'execution Le curseur s’arrête à writeln(p) ; et affiche le message d’erreur suivant :
ERROR 64 cannot read or write variable of this type
Et Je voudrais s’il vous plait l'instruction pour afficher l’adresse de (p) .
Please help me.
Voila mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

program exemple1;   type pinteger = ^integer;   var q : integer; p : pinteger;   begin p:=nil; q:=100; new(p); p^:=q; writeln(p^); writeln(p); end.

---

Gio,

Pour le code, pense à utiliser les balises [ code] [ /code] (sans les espaces qui ne sont là que pour les invalider).

En effet, TP ne sait pas écrire les variables de type pointeur. il faut donc le transtyper en un type de longueur compatible, en l'occurrence, un LongInt :

Code:

---

1 2 3 4

... WriteLn(LongInt(p)); ...

---

D'autre part, quand on réserve de la place avec New, il faut libérer cette place mémoire avec Dispose:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

... New(p); ... Dispose(p);   { ------------------------------------------------------   à partir d'ici, le pointeur p est invalide, et on ne doit plus   chercher à accéder à la mémoire sur laquelle il pointait   ----------------------------------------------------- } ... end.

---