Discussion :

[Charette]

Bonjour,

je souhaite stocké une variable de type string dans le Data d'un TTreeNode.

L'ennui est que ma variable de type string est locale à une fonction et que j'utilise le Data dans une autre donc je n'ai plus rien à l'adresse pointée par Data.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
pszTemp : PString;
begin
//Dans la 1ère fonction ou j'écris dans mon Data
        pszTemp := @szFilePath;
        tnChildNode.Data          := pszTemp;
...
//Dans la fonction ou je lis le data
szPath : string;
begin
  szPath  := String( tvNavTree.Selected.Data );
//szPath est vide
...

Commment puis-je faire????

[inoussa]

salut.

Code :

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

1
2
//en supposant la mémoire bien gérée
szPath  := PString(tvNavTree.Selected.Data)^;

[Charette]

Cela ne marche pas car le data ne pointe plus sur rien.
Je pense qu'il faut que je fasse une copie de ma variable dans une variable que les deux focntions" voit"
Merci quand meme

[inoussa]

salut.

Ta chaine de caracteres sera libérée automatiquement par Delphi, voila pourquoi j'ai noté

//en supposant la mémoire bien gérée.

C'est à toi d'allouer de la mémoire lors de l'affectation et la liberer à la fin.
Suppose un type de donnée quelconque:

Code :

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

1
2
3
4
5
6
Type
  PMyData = ^TMyData;
  TMyData = Record
    IntVal : Integer;
    strVal : String;
  End;

dans la fonction où tu écris le data:

Code :

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

1
2
3
4
5
6
7
8
 
Var
  pData : PMyData;
begin
  pData := New(PMyData); // Tu aloues de la mémoire
  pData^.IntVal := 99;
  pData^.strVal := 'Salut';  
  tnChildNode.Data := pData;

dans la fonction où tu lis le data:

Code :

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

1
2
3
4
5
6
7
Var
  pData : PMyData;
begin
  If Assigned(tvNavTree.Selected.Data) Then Begin
    pData := PMyData(tvNavTree.Selected.Data); 
    // traitements que tu veux
  End;

Ne pas oublier de libérer la mémoire à la fin!

[Charette]

OK ca marche parfaitement!

Merci