pointeurs

Question

Bonjour,
j'aurai besoin d'aide concernant les pointeurs...C'est ma deuxieme ann&#233;e de pratique de delphi et j'attaque les pointeurs... J'ai trois exos a faire dit 'de base' d'apr&#232;s mon prof...
Malgr&#233;s tout, et apres de nombreuses sur ce site et sur d'autre je ne comprend toujours pas ce que je dois faire  !
En effet je crois avoir compris plusieurs choses sur ce sujet mais je bloque .
HELP ME !!!
Je ne demande bien sur pas &#224; que l'on me serve tout cuit, mais j'aimerai comprendre!!!
Alors &#224; votre bon coeur, voil&#224; l'&#233;nonc&#233; :

1) Les pointeurs 
a) D&#233;finir un type enregistrement de 5 champs et afficher les adresses des champs d&#146;une variable du type pr&#233;c&#233;dent. 
b) En utilisant un pointeur, faire afficher les caract&#232;res d&#146;une cha&#238;ne.
 c) Idem pour un tableau de r&#233;els 
d) Concevoir un tableau pouvant contenir aussi bien des r&#233;els, des cha&#238;nes ou des bool&#233;ens.
 e) M&#234;me chose avec un tableau dynamique.

Voil&#224; une ebauche de ce que j'ai fais pour la question 1 par exemple mais ne comprenant rien &#224; ce que je dois faire, j'imagine que &#231;a ne vaut rien   :

type Tpersonne = record
      nom : string;
      prenom : string;
      age : integer;
      ville : string;
      villenatal : string;
end;
PPersonne = ^TPersonne;
implementation


{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
  PersTest: PPersonne;
  
begin
  New(PersTest);
  PersTest^.Nom := 'dupont';
  PersTest^.Prenom := 'pierre';
  PersTest^.age := 22;
  PersTest^.ville := 'Bordeaux';
  PersTest^.villenatal := 'paris';
  perstest:= addr(perstest^.nom);
  label1.caption := inttostr(essai);;
  Dispose(PersTest);

jlen100 · Answer

salut;

les pointeurs servent &#224; ecrires directement &#224; une adresse moimoire.

dans ton exemple

procedure TForm1.Button1Click(Sender: TObject);
var
  PersTest: PPersonne;

    pointeur,essai:^integer;  

begin
  New(PersTest);


    with   PersTest^ do // &#231;a simplifie l'&#233;criture

    begin 

      Nom :=   'dupont';
      Prenom := 'pierre';
      age := 22;
      ville := 'Bordeaux';
      villenatal := 'paris';


       essai:=@pointeur;//on
pointe sur le pointeur en fait on fait un transtypage du pointeur en
integer la fonction inttostr n'acceptant pas directement un pointeur
comme argument mais selement le contenu du pointeur

        pointeur:= addr(nom); // ou pointeur:= @nom ; l'@ rempla&#231;ant addr() ici on charge l'adresse dans le pointeur 




    end;  

      label1.caption :  ='adresse du nom'+ inttostr(essai^);// on affiche l'adresse contenue dans le pointeur;
      Dispose(PersTest);

end;

pour afficher les caracteres d'une chaine &#224; l'aide d'un pointeur 

caractere:^char;

chaine:string='abcdecf';



for i:=1 to lenght(chaine) do

begin


caractere:=@chaine[i]; edit.text:=edit.text+caractere^;

end;

c'est un peu tordu pour afficher une chaine!!!!!

pour les tableaux tu fais pareil:

tu definis un pointeur du type de ce tu veux utiliser et tu pointes sur l'elemnt en utilisant addr() ou@

pour faire un tableau compatible avec tout les type tu le declares :

tableau:array[0..XX]of pointers; et declarer les pointeurs dont tu as besoin

ainsi tu peux ranger tout type de donnees dans le tableau attention ce sont les adresses qui sont rang&#233;es

jlen100 · Answer

vas voir egalement: Guide Pascal et Delphi de Fr&#233;d&#233;ric BEAULIEU. qui donne pas mal d'explications sur les pointeurs

cs_neko · Answer

Alors ce qui est clair c'est que c'est pas des exos "de base" ton prof a d&#251; fumer, je sais pas lol. Donner &#231;a a des &#233;l&#232;ves qui viennent de voir les pointeurs c'est du suicide... il a d&#251; vouloir vous coller ^^

pour faire ces exos il faut d&#233;j&#224; que tu comprenne plusieurs choses:
   ce qu'est un pointeur ( t'as l'air de savoir )
   comment sont "m&#233;moris&#233;s" les String ( ce sont des tableaux dynamiques de caract&#232;res )
   comment sont "m&#233;moris&#233;s" les tableaux dynamiques ( c'est un pointeur implicite vers un tableau )
   enfin comprendre ce qui est demand&#233; ( l&#224; ton prof t'as franchement pas aid&#233; )

 je vais te donner simplement quelques indications par manque de temps d&#233;sol&#233; lol
question a:
   ce que tu a fait est presque juste, mais la question n'est pas pour le type PPersonne mais TPersonne ( dans cette question ils ne te parlent pas encore de pointeurs ^^ ). Pour avoir l'adresse d'une variable un op&#233;ration existe c'est @
exemple @Personne => Adresse de Personne
               @(Personne.Prenom) => Adresse de Personne.Prenom

question b:
   une chaine est en fait un pointeur vers un tableau dynamique de caract&#232;res 
exemple:
var S: String;
      C: ^Char; //Pointeur de carac&#232;res plus souvent appel&#233;s PChar;
Begin
   S:='Voici une chaine longue';
   C:=Pointer(S);
   //C^ = 'V'
end;
le second caract&#232;re se trouve 1octet plus loin que 'V' ( car 1caract&#232;re est cod&#233; sur 1 octet ) donc il fait incrementer C de 1 octet ( l&#224; je te laisse voir )

question c:
il est dit un tableau donc:
var 
   TabReel: Array[1..50]Of Float;
   PReel: ^Float;
   // PReel devra pointer vers chaque "case" du tableau de la m&#234;me mani&#232;re que precedemment ( je te laisse voir )

question d:
Un tableau de n'importe quoi ? ok si on sait pas ce que c'est, on ne connait pas la taille, on ne peux donc pas stoker les valeurs directement.
On sera donc oblig&#233; d'utiliser des pointeurs vers des variables, d'o&#249; l'utilisation d'un tableau de pointeurs
Var
   Tab: Array[0..50] Of Pointer;
Begin
   Tab[0]:=New(Integer);
   Tab[0]^:=1;
   etc...
End;

question e: je te laisse faire ^^

jlen100 · Answer

-->neko

la question 1 est d'autan plus tordue que l'on ne peut pas afficher
directement l'adresse de la variable @ ne renvoyant qu'un type pointeur
et la fonction inttostr(@nom) donne une erreur de compilation (
...aucune surcharge de la fonction n'est admise..) je crois ou quelque
chose comme cela .Ceci oblige &#224; passer par un pointeur auxiliaire :

le premier pointe sur la variable ---> il contient l'adresse de la variable

le second pointe sur le premier ----> la valeur point&#233;e est bien un
integer (l'adresse de la variable) comme il est d&#233;clar&#233; comme un
^integer il est accept&#233; par la fonction inttostr.

CQFD. mais pas tres simple mais simplement un transtypage!!

plusweb · Answer

Merci &#224; tous pour toute votre aide  !!!
Bon avant de me mettre &#224; d&#233;cortiquer vos messages pour bien tous comprendre, j'aurai d&#233;j&#224; une question &#224; propos de la r&#233;ponse de jlen100 ...

Je ne comprend bien pourquoi on a besoin de passer par une variable "temporaire" pour r&#233;cup&#233;rer l'adresse ...
En effet pourquoi pas :
              pointeur:= addr(nom
                 essai:=@pointeur
                 essai2 := addr(prenom);
              pointeur2 := addr(age);
                 essai3 := @pointeur2;
                 essai4 := addr(ville);
                 essai5 := addr(villenatal);

J'ai fais comme &#231;&#224; pour r&#233;cuperer toutes les adresses...mes r&#233;sultats sont-ils &#233;ron&#233;s ou est-ce un cas particulier..??
Merci encore de votre aide.

plusweb · Answer

Bon en me relisant,mon dernier message ne me semble pas tr&#233;s clair...


Pour r&#233;sum&#233; : jlen100 m'as propos&#233; ceci pour r&#233;cup&#233;rer l'adresse du nom par exemple :    pointeur:= addr(nom);
                                                                                                                                         essai:=@pointeur;
Et je me demande si on est oblig&#233; de passer par la variable pointeur?

Moi j'ai fais comme &#231;a et je me demande si c bon :
 

pointeur:= addr(nom);
essai:=@pointeur;
 essai2 := addr(prenom);
 pointeur2 := addr(age);
 essai3 := @pointeur2;
essai4 := addr(ville);
 essai5 := addr(villenatal);
end;
      label1.caption :='L'' Adresse du nom est :'+ '  ' + inttostr(essai^);// on affiche l'adresse contenue dans le pointeur;
      label2.caption :='L'' Adresse du pr&#233;nom est :'+ '  ' + inttostr(essai2^);
      label3.caption :='L'' Adresse de l''age est :'+ '  ' + inttostr(essai3^);
      label4.caption :='L'' Adresse de la ville est :'+ '  ' + inttostr(essai4^);
      label5.caption :='L'' Adresse du pays est :'+ '  ' + inttostr(essai5^);

Voil&#224; ....Merci

jlen100 · Answer

salut, comme je te l'ai dit le probleme c'est que l'instruction
inttostr n'accepte pas le pointeur comme variable mais seulement son
cotenu. ainsi si tu fais inttostr(pointeur) tu auras un message
d'erreur &#224; la compilation.

Physiquement un pointeur est une adresse donc un integer seulement il
est declare comme type pointer et l'instruction inttostr() ne le
reconnais pas comme integer ... c'est C.. mais c'est comme &#231;a; d'ou la
n&#233;cessit&#233; de convertir l'adresse en integer (transtypage) c'est le role
du pointeur auxiliare: il pointe sur l'adresse m&#233;moire contenant
l'adresse l'adresse de la variable initiale

par exemple si nom est &#224; l'adresse 1000

le pointeur &#224; l'adresse 2000 

quand on fait :

pointeur:= @nom;

test:=@pointeur;

en final pointeur=1000 ; test=2000  et  test^=1000; on &#224; bien r&#233;cup&#233;r&#233; l'adresse de la variable initiale.

j'esp&#233;re que je suis assez clair.

Dans ce que tu as besoin tu dois r&#233;peter l'op&#233;ration pour chaque pointeur ainsi :

pointeur:= addr(nom);

essai:=@pointeur;

 essai2 := addr(prenom);

 pointeur2 := addr(age);

 essai3 := @pointeur2;

essai4 := addr(ville);

 essai5 := addr(villenatal);

end;

      label1.caption :='L'' Adresse du nom est
:'+ '  ' + inttostr(essai^);// on affiche l'adresse contenue dans
le pointeur;

      label2.caption :='L'' Adresse du pr&#233;nom est :'+ '  ' + inttostr(essai2^);

      label3.caption :='L'' Adresse de l''age est :'+ '  ' + inttostr(essai3^);

      label4.caption :='L'' Adresse de la ville est :'+ '  ' + inttostr(essai4^);

      label5.caption :='L'' Adresse du pays est :'+ '  ' + inttostr(essai5^);

ici essai2 contient l'adresse du prenom mais quand tu fais  inttostr(essai2^ )
tu convertiras la valeur des carct&#233;res contenus &#224; l'adresse point&#233;e qui
seront consideres comme un integer. fais le test en changeant le prenom
et ta valeur doit changer

 ton code devient:



pointeur: = addr(nom);


essai:=@pointeur;

      label1.caption :='L'' Adresse du nom est :'+ '  ' + inttostr(essai^);// on affiche l'adresse contenue dans le pointeur;

pointeur:= addr(prenom);


essai:=@pointeur;

      label2.caption :='L'' Adresse du pr&#233;nom est :'+ '  ' + inttostr(essai^);

 pointeur:= addr(age);



essai:=@pointeur;

     label3.caption :='L'' Adresse de l''age est :'+ '  ' + inttostr(essai^);

 pointeur:= addr(ville);




essai:=@pointeur;

      label4.caption :='L'' Adresse de la ville est :'+ '  ' + inttostr(essai^);

 pointeur:= addr(villenatal);





essai:=@pointeur;

      label5.caption :='L'' Adresse du pays est :'+ '  ' + inttostr(essai^);

......etc,etc

tu n'as besoin que d'un seul pointeur et une seule variable auxiliaire.

plusweb · Answer

OK!!!
Merci, cette fois c 'est tr&#232;s clair!!!
Merci beaucoup &#224; toi...

jlen100 · Answer

note simplement que la variable pointeur peut &#234;tre d'un type pointer
quelconque. En effet elle ne sert qu'&#224; recuperer l'adresse de la
variable initiale tu peux donc la declarer : pointeur:pointer; le type pointer est un type g&#233;n&#233;rique compatible avec tout les autres pointeurs.

bonne prog.

Emandhal · Answer

perso j'aurais fait : IntToStr(Integer(@Pointer))
je ne vois vraiment pas le problème... Un simple cast...

Tout problème a sa solution mais en général c'est jamais la bonne...

jlen100 · Answer

--> c'est effectivement plus simple je n'y avais pas pens&#233; quoique qu'il faille &#233;crire @pointeur et non @pointer puisque pointer est un type de pointeur generique ce qui provoque une erreur de compilation

bkg2k · Answer

Effectivement, il suffit de caster un pointer en integer pour l'afficher.
Cependant, &#231;a n'a pas beaucoup de sens, sauf dans de rare cas pour debugger.

Dans tous les cas, on preferera un pointer sous sa forme hexa: IntToHex(Integer(@p),8);
C'est plus... "clair" ;)

Pour plusweb: Je trouve deplorable que l'on enseigne les pointers aussi tard. Ils font partis des bases essentielles de la programmation. Leur maitrise n'est pas un "plus", c'est... comment dire... essentiel.
Il font partie des mecanismes basiques, que leur utilisation soit implicite (comme c'est le cas en java) ou explicite (comme ici par exemple), au m&#234;me titre que les simples operations arithmetiques.
En maitrisant les pointers, tu eviteras nombres d'erreurs qui leur sont li&#233;s.

Dans tous les cas, bon courage pour la suite ;)

bkg2k · Answer

Avis aux Webmasters: Vous devrier regarder du cot&#233; d'Opera, il semble que tous mes CRLF du post precedent soient partis dans la stratosphere ^^

jlen100 · Answer

effectivement afficher un pointeur ne presente que peu d'interet si ce n'est pedagogique. 

le but de l'exercice &#233;tant surtout de manipuler les pointeurs et de
comprendre leur fonctionnement et la je te rejoins ils sont &#224; la base
du fonctionnement de tous les programmes informatique et ce quelque
soit le langage employ&#233;. Ainsi le simple fait de faire un add dans une
liste cree plusieurs pointeurs (meme si c'est transparent pour le
programmeur).

Pointeurs

14 réponses

Votre réponse

Discussions similaires