TTreeNode.Data et String

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:

---

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????

salut.

Code:

---

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

---

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

salut.

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

Citation:

---

//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:

---

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:

---

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:

---

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!

OK ca marche parfaitement!

Merci