Discussion :

[grand's]

Bonjour,

voila, en C, je peut calculer un offset entre 2 pointeurs en les soustrayant l'un a l'autre.
Je voudrais savoir s'il est possible de faire la meme chose en pascal.
je dois afficher les membres d'une liste chainee double d'un ptr1 à un ptr2.
je voudrais faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
diff:=ptr2-ptr1;
if 
diff>0 then [ptr2 est apres ptr1]
else
[ptr2 est avant ptr1]

je peut alors afficher les membres de la liste en partant du premier rencontré jusqu'au suivant.
Merci

[M.Dlb]

Euh oui ta méthode est peut-être valable, mais elle n'est certainement pas très propre
Pour répondre à ta question, un pointeur est un entier sur 32 bits non signé (un DWord), donc on peut y faire toutes les opérations comme sur des entiers (addition, soustraction). Pour Turbo Pascal, il faut d'abord convertir en longint, ou mettre la valeur dans EAX en assembleur, avant de faire toute opération...
Cependant, pour les listes chaînées, si tu l'as bien construiste, tu devrais avoir un moyen simple d'accéder à l'élément suivant (en général, un pointeur vers l'élément suivant). Si ce n'est pas le cas, tu devrais consulter un tutoriel sur le sujet !

a+

[Alcatîz]

Bonjour !

Ta méthode par soustraction d'adresses est dangereuse : la fragmentation du tas peut très bien entraîner que les éléments successifs de la liste chaînée aient des adresses très différentes.

Personnellement, j'oublierais cette idée pour me rabattre sur celle de Wormful_Sickfoot.

[grand's]

ok je vois (enfin je crois)
mais dans mon cas, je veut juste savoir lequel est en premier dans la chaine.
la chaine est bien placée en memoire de facon sequentiel ou je me trompe ?
donc si l'adresse de 1 est > a l'adresse de 2, alors 1 se situe apres 2 dans la chaine, arretez moi si je me trompe....

[M.Dlb]

Ben les cellules ne sont pas toujours placées à la suite les unes des autres (comme l'expliquait Alcatîz), donc tu peux te retrouver avec des adresses n'ayant aucun rapport les unes avec les autres.
Puis honnetement, si on a inventé les pointeurs, c'est justement pour ne pas se prendre la tête avec ce genre de problèmes
Pour les listes chaînées, tu devrais consulter un tutoriel, car normalement on dispose d'un pointeur sur la liste (sur la première cellule en fait). Et dans chaque cellule, il y a un pointeur vers la cellule suivante, ce qui permet de parcourir la liste simplement, en passant de pointeur à pointeur...
a+

[grand's]

merci je vais essaye autrement alors.
et au fait, ce n'est pas un probleme de comprehension de liste chainée, heuu je crois que j'ai compris.
je viens de terminer un reseau ferroviere (basique certes je vous l'accorde), avec liste chainée double dans tout les sens et sa fonctionne.
Mais comme d'habitude, merci a vous, ca fait plaisir de trouver de l'aide comme ca, surtout pour un vieux etudiant de 30 piges.

Merci et a+

[M.Dlb]

Tu es le bienvenu sur le site, n'hésites pas à revenir, car c'est agréable de dialoguer avec quelqu'un comme toi

a+

[Juju_41]

Petite précision, il est parfois utile d'avoir un pointeur sous forme de scalaire (pour incrémenter le pointeur d'un octet par exemple). On peut alors les déclarer comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
var
  pp: pointer;
  ip: longint absolute pp;

De cette manière en faisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ip := ip + 1;

On incrémentera d'un octet le pointeur pp. Il faut bien sûr faire attention à ne pas sortir d'un segment.

Il y a aussi cette déclaration que j'aime bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
type
  TPointer = record
               p: pointer;
               abs: longint absolute p;
             end;