Discussion :

[Caesarus]

voila j'ai un Treeview qui contient des TTreeNode;

je voudrais passer un integer dans le node
pour cela la seule propriétée que j'ai trouvé c'est le data, un pointeur
>< je connais absolument pas les pointeurs mais je me suis documenter sur le net .... seulement voila >< j'ai suivi les tutos et j'ai tout de meme une violation d'acces.

Quelqun pourrait il m'eclairer ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedureTFraParamTbl.Chargement;
var
  Node : TTreeNode;
  Pi : ^integer;
begin inherited create(AOwner);
 
  New(Pi);
  pi^:= 1;
  Node := TTreeNode.Create(HTMLTreeview.Items);
  Node.Data := pi ;
  HTMLTreeview.Items.Add(Node,'essai');
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TFraParamTbl.HTMLTreeviewDblClick(Sender: TObject);
var
  Node : TTreeNode;
  i : ^integer;
  it : integer;
begin
  inherited;
  Node := HTMLTreeview.Selected;
  ShowMessage(node.Text);
  i := Node.data;
  it := i^;  //<-- violation d'acces ici
end;

merci d'avance

[Tchaill39]

Salut !

Juste une petite précision STP : La violation d'accès à lieu au 1° double click ?

[Fabrice ROUXEL 1]

Et avec cela :

Code :

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

i := PInteger(Node.data);

Remplace les déclaration comme

Code :

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

i : ^integer;

par

Code :

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

i: PInteger;

[Tchaill39]

Le principe des pointeurs. C'est en gros des cases de mémoire que tu pointe avec une adresse (d'ou "pointeur") L'avantage de ces dernier est qu'au lieu de te trimbaler dans tes parenthèses un tableau monstrueux, tu peux juste prendre l'adresse. Voilà ca c'est le principe général.

Dans ton cas : 2 choses

- un pointeur avant d'être rempli ou utilisé doit toujours être créer avec un "New". Tu le fais dans " procedureTFraParamTbl.Chargement" mais pas dans procedure TFraParamTbl.HTMLTreeviewDblClick(Sender: TObject);

- Un pointeur doit toujours être DETRUIT. Quand tu n'as plus besoin de l'info poointée, il faut absolument le désallouer avec la fonction "Dispose"

Ton code correct serait donc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedureTFraParamTbl.Chargement;
var
  Node : TTreeNode;
  Pi : ^integer;
begin inherited create(AOwner);
 
  New(Pi);
  pi^:= 1;
  Node := TTreeNode.Create(HTMLTreeview.Items);
  Node.Data := pi ;
  HTMLTreeview.Items.Add(Node,'essai');
  dispose(Pi)
end;

et

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
procedure TFraParamTbl.HTMLTreeviewDblClick(Sender: TObject);
var
  Node : TTreeNode;
  i : ^integer;
  it : integer;
begin
  inherited;
  New(i);
  Node := HTMLTreeview.Selected;
  ShowMessage(node.Text);
  i := Node.data;
  it := i^;  //<-- violation d'acces ici
  dispose(i)
end;

VOILA. Bonne continuation

[Caesarus]

euh ca compile pas j'ai du feinter. type incompatible (System.integer et cadraParamTbl.Integer);

it := pInteger(node.data)^;

mais .... j'ai tjrs une violation d'acces;


tiens F9 ne poste pas le message ... il compile pas ? >< faut que j'arrete le delphi moi

[Caesarus]

>< c'est vrai j'ai pas fait de new sur le deuxieme...

mais si le pointeur ne fait que cibler une plage memoire :
new alloue cette plage et fait pointer le pointeur dessus
et dispose la desalloue

donc j'alloue la plage que dans la premiere fonction et je desalloue que lorsque je n'ai plus besoin de cette plage et non du pointeur, enfin il me semble non ? sinon entre temps j'ai perdu ma plage memoire et donc ma donnée, enfin si j'ai bien compris les tutos sur les pointeurs ^^

enfin j'ai tester quand meme avec ta solution, et j'ai tjrs la meme erreur ... :'(


remarque : ca plante au premier double clic

[Linkin]

Pour l'histoire du type incompatible, précise l'unité devant le type dans la déclaration, ex:

Code :

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

1
2
 
MaVariable : System.Integer;

[Fabrice ROUXEL 1]

Remplace

Code :

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

HTMLTreeview.Items.Add(Node,'essai');

par

Code :

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

HTMLTreeview.Items.AddObject(Node, 'essai', pointer(pi));

j'ai remplacé ton

Code :

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

i: ^Integer

par

Code :

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

pi: PInteger;

N'oublie pas le tag résolu.

[Tchaill39]

Quand je regarde ton code : "Pi" et "i" sont respectivement déclarés en variable locale dans les deux fonctions. Donc tu doit les allouer en local et les désallouer en local aussi


Si une variable doit rester entre les différentes actions : il faut la déclarer en global dans ta feuille.

[Cl@udius]

Salut

Ben moi je ferais comme ça:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Chargement;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
var
  i: integer;
begin
  with HTMLTreeView do
  begin
    for i := 0 to Items.Count - 1 do
      if Assigned(Items[i].Data) then
        Dispose(Items[i].Data);
  end;
end;
 
procedure TForm1.Chargement;
var
  Node : TTreeNode;
  Pi : PInteger;
begin
  New(Pi);
  pi^:= 1;
  HTMLTreeview.Items.AddObject(nil,'essai 1', Pi);
 
  New(Pi);
  pi^:= 2;
  HTMLTreeview.Items.AddObject(nil,'essai 2', Pi);
end;
 
procedure TForm1.HTMLTreeViewDblClick(Sender: TObject);
var
  Node : TTreeNode;
  i : ^integer;
  it : integer;
begin
  Node := HTMLTreeview.Selected;
  ShowMessage(node.Text);
  i := Node.data;
  it := i^;
  ShowMessage(IntToStr(it));
end;

@+ Claudius

[Fabrice ROUXEL 1]

Oui Claudius! Caesarus a oublié le AddObject donc forcément ça marche moins bien

[Caesarus]

>< bon c cool ca marche ^^
ct le addobject
( ou est l'utilité de passer un Node a la fonction si ce que l'on met dedans est perdu ? que ce soit pour le text ou le data ...)

pour tchail39 >< j'avais raison ... tu confonds variable et pointeur si je fait un dispose(i) je perds la plage memoire et donc tout ce qui s'y trouve ... je recupere une valeur incohérente ...
au passage le pointeur est un type simple donc on ne le detruit pas il s'en va tout seul comme un grand ;p c'est pas un objet ( tu detruis tes strings et tes integers ? ) en revanche il faut desalloue la plage mais seulement quand je n'ai plus besoin de l'info (la méthode de claudius est nickel et sure)

merci tout le monde pour votre aide.

[Caesarus]

pour le tag resolu, j'attends un peu savoir si quelqun a la réponse pour l'utilité du node en parametre de la fonction add ...

[Cl@udius]

pour le tag resolu, j'attends un peu savoir si quelqun a la réponse pour l'utilité du node en parametre de la fonction add ...

Le noeud est ajouté comme dernier frère du noeud spécifié par le paramètre Node.

Si tu précises Nil pour le Node, le noeud créé sera de Level 0.

Voir également AddChildObject qui ajoute le noeud comme enfant du paramètre Node.

@+

[Caesarus]

ah c'est le parent ><, autant pour moi >< du coup mon node.create ne sert a rien;

merci pour l'info

bon je le passe en resolu