Discussion :

[supersnail]

Salut tout le monde.
J'ai un petit souci avec des pointeurs:
J'ai une partie où je saisis un prénom,un nom et une adresse.Quand je clique sur le bouton "ajouter" le prénom saisi est affiché dans le TreeView et la propriété Data du TreeNode créé contient le pointeur vers le record TInfos contenant les champs Nom,prénom et adresse.
Quand je double-clique sur le node,je récupère la propriété "Data",la convertis en TInfos,et affiche dans 3 labels.
Seulement,quand je double-clique,les champs Nom et prénom sont vides,tandis que le champ adresse est vide.

Je mets le code en pièce jointe,et merci d'avance pour vos réponses.

[rbh]

Salut
il faut que tu alloues un espace mémoire pour ton pointeur.
Regarde dans l'aide du côté de la fonction New;

[ShaiLeTroll]

tu peux aussi pour te simplifier l'écriture déclarer un type de pointeur

Code :

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

1
2
3
4
5
6
7
type 
  PInfos = ^TInfos;
  TInfos = record
    nom : String;
    prenom : String;
    adr : String; 
  end;

Code :

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

   node.Data := @infos;

Si je ne me trompe pas, ton infos est une variable locale, donc en toute logique, Delphi, va libérer la structure dans "end;" de la procédure, ainsi ton pointeur pointe sur une zone mémoire qui peut soit être nullifié, soit contenir tout à fait autre chose ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TTest.Button1Click(Sender: TObject);
var
    infos : PInfos;
    node : TTreeNode;
begin
   new(Infos);
   infos^.nom := Edit1.Text; // ^ implicite mais c'est mieux de voir ce qu'on fait
   infos^.prenom := Edit2.Text;
   infos^.adr := Edit3.Text;
   node := TreeView1.Items.AddChild(TreeView1.TopItem,Edit2.Text);
   node.Data := Pointer(infos);
   Label7.Caption := infos.nom;
   Label8.Caption := infos.prenom;
   Label9.Caption := infos.adr;
 
end;
 
procedure TTest.TreeView1DblClick(Sender: TObject);
var  
    tmp : TInfos;
begin
  if Assigned(TreeView1.Selected.Data) then
  begin
    tmp := PInfos(TreeView1.Selected.Data)^;
    Label7.Caption := tmp.nom;
    Label8.Caption := tmp.prenom;
    Label9.Caption := tmp.adr;
  end;
end;

Ne pas oublier un Dispose lors de la suppression du Node !

[supersnail]

Et si je créé tableau de TInfos globales,le redimensionner à chaque fois que je créé un TreeNode,est-ce que ça pourrait marcher(je ne suis pas sur mon PC de dev,c'est pour ça que je pose la question...)

[ShaiLeTroll]

Inutile de faire une globale, c'est New qu'il te faut ... rien d'autres ...

[supersnail]

En fait,jai alloué un tableau global de 1000 "TInfos",et j'ai fait pointé mon pointeur sur un item du tableau de TInfos.

Sinon,l'aide Delphi n'est pas claire sur l'utilisation de New...

[ShaiLeTroll]

La Solution du Tableau peut fonctionner, mais c'est dommage de ne pas exploter la propriété Data fourni par le TreeView

Sinon, pour le New, moi j'ai aussi commencé par l'utilisé pour l'un de mes projets de DUT, qui était un Editeur de Base de Registre, j'ai pris l'aide du TreeNode.Data, et l'exemple fourni, tu n'es peut-être pas encore habitué à manipuler l'aide, lit donc ceci, moi cela m'a vraiement aidé :

Lorsqu'une application a terminé d'utiliser une variable dynamique créée avec New, elle devrait libérer la mémoire allouée pour la variable en utilisant la procédure standard Dispose.

Le code suivant définit un type d'enregistrement TMyRec et un type pointeur sur cet enregistrement PMyRec.

Code :

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

1
2
3
4
5
6
type
PMyRec = ^TMyRec;
TMyRec = record
  FName: string;
  LName: string;
end;

En supposant que ces types soient utilisés, le code suivant ajoute un noeud à TreeView1 comme étant le dernier noeud de même niveau qu'un noeud spécifié. Un enregistrement TMyRec est associé à l'élément ajouté. Les champs FName et LName sont obtenus à partir des boîtes de saisie Edit1 et Edit2. Le paramètre Index est obtenu à partir de la boîte de saisie Edit3. L'élément n'est ajouté que si Index est une valeur valide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TForm1.Button1Click(Sender: TObject);
 
var
  MyRecPtr: PMyRec;
  TreeViewIndex: LongInt;
begin
  New(MyRecPtr);
  MyRecPtr^.FName := Edit1.Text;
  MyRecPtr^.LName := Edit2.Text;
  TreeViewIndex := StrToInt(Edit3.Text);
  with TreeView1 do
  begin
    if Items.Count = 0 then
      Items.AddObject(nil, 'Item' + IntToStr(TreeViewIndex), MyRecPtr)
    else if (TreeViewIndex < Items.Count) and (TreeViewIndex >= 0) then
 
      Items.AddObject(Items[TreeViewIndex], 'Item' + IntToStr(TreeViewIndex), MyRecPtr);
  end;
end;

Après qu'un élément contenant un enregistrement TMyRec ait été ajouté, le code suivant extrait les valeurs FName et LName associées à l'élément et affiche les valeurs dans un libellé.

Code :

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

1
2
3
4
5
6
procedure TForm1.Button2Click(Sender: TObject);
 
begin
  Label1.Caption := PMyRec(TreeView1.Selected.Data)^.FName + ' ' +
                  PMyRec(TreeView1.Selected.Data)^.LName;
end;