les pointeursRésolu

Question

Bonjour, j'ai un probl&#232;me avec l'utilisation de pointeur. Je ne maitrise pas trop cette notion.
J'ai simplifi&#233; pour faire court.
J'ai d&#233;clar&#233;

type
  PLigne_Trou=^Coordonnee_Trou;
  Coordonnee_Trou=record
    Article:String;
    X,Y:Real;  //j'ai beaucoup d'autres variables en plus
  end;
Var
  Ligne_Trou:PLigne_Trou; 
  Liste_Trou:Tlist;

pour mettre un &#233;l&#233;ment dans la liste je fais

 New(Ligne_Trou);
 Ligne_Trou^.Article:=Fichier;
 Ligne_Trou^.X:=ValX;
 Ligne_Trou^.Y:=valY;
 Liste_Trou.Add(Ligne_Trou);

jusque l&#224; pas de soucis. Mon probl&#232;me est le suivant. Je veux pouvoir rajouter des &#233;l&#233;ments suppl&#233;mentaire &#224; ma liste en utilisant les &#233;l&#233;ments d&#233;j&#224; en m&#233;moire de ma liste. Exemple: Dans ma liste, j'ai 5 enregistrements. Je veux en mettre un 6&#232;me qui est la copie de l'enregistrement 1 sauf pour la valeur X que je modifie. J'avais &#233;cris:

New(Ligne_Trou);
Ligne_Trou:=Liste_Trou.Items[1];

Ligne_Trou^.X:=ValX+10;
Liste_Trou.Add(Ligne_Trou);

Ceci m'ajoute bien un 6&#232;me enregistrement mais cela modifie &#233;galement l'enregistrement 1. L'enregistrement 1 et 6 sont les m&#234;mes. J'en voulais un avec la valeur X et l'autre avec la Valeur X+10. Hors j'ai tout les deux la valeur X+10. En refl&#233;chissant c'est normal puisque je pointe sur le m&#234;me pointeur Ligne_Trou:=Liste_Trou.Items[1];
J'avais alors essay&#233; d'&#233;crire Ligne_Trou^:=Liste_Trou.Items[1]^ 
Mais l&#224;, l'&#233;criture est incorrect. Y a t-il une &#233;criture simple qui me permettrais de faire cette fonction, c'est &#224; dire de renvoyer le contenu total du pointeur dans Ligne_trou pour pouvoir le modifier et l'enregistrer sans que l'enregistrement d'origine se modifie?

merci.

jlen100 · Accepted Answer

salut

quand tu &#233;cris Ligne_Trou:=Liste_Trou.Items[1];


tu fais adresse de ligne_trou= addresse de l'&#233;l&#233;ment 1; tu n'as pas
copi&#233; le contenu mais seulement l'adresse donc quand tu fais Ligne_Trou^.X:=ValX+10;

 tu surchage la avleur initiale

pour copier la totalit&#233; de ligne_trou passes par une variable interm&#233;diaire

 var temp: Pligne_trou;





temp:=liste_trou.items[1];

ligne_trou^:=temp^;



ensuite tu peux travailler sur ligne_trou sans affecter les valeurs initiailes.

@+

jlen

cs_philpas · Answer

Merci de ton aide.
c'est ce que je pensais, mais je voulais &#234;tre sur, il faut repasser par une variable interm&#233;diaire.
Tlist ne donne que des pointeurs, jamais le contenu des pointeurs.

jlen100 · Answer

oui c'est normal d'ailleurs il ne sais pas &#224; priori si le contenu est
comptaible avec la variable ( c'est vrai qu'il pourrait copier par
d&#233;faut le nombre d'octets n&#233;cessaires mais il ne le fait pas).

cs_neko · Answer

En g&#233;n&#233;ral on utilise plutot un cast dans ces cas l&#224;:
Pour ajouter un &#233;l&#233;ment:
  i:= List_trou.Add( New(PLigne_Trou) );
 PLigne_Trou(List_tour.Items[i])^.X:=ValX;
 PLigne_Troue(List_Trou.Items[i])^.Y:=ValY;

Pour modifier un &#233;l&#233;ment:
   PLigne_Trou(
liste_trou.items[1])^.X:=ValX;
  PLigne_Trou(liste_trou.items[1])^.Y:=ValY;
ou
    With  PLigne_Trou(liste.items[1])^ Do Begin
      X: =ValX;
      Y:= ValY;
    End ;

Pour copier un enregistrement dans un autre:
New(Ligne_Trou);
Ligne_Trou^: =PLigne_Trou(liste_trou.items[1])^;
Liste_Trou.Add(Ligne_Trou);
ou plus bordeliquement ( et donc a eviter si on est pas s&#251;r ):
PLigne_Trou(Liste_Trou.Items[Liste_Trou.Add(New(PLigne_Trou))])^:=PLigne_Trou(List_Trou.Items[i])^;

bouh

Les pointeurs

4 réponses

Votre réponse

Discussions similaires