Discussion :

[stanislas]

Bonjour,

J'ai un petit soucis. Je crée un TTreeView en utilisant une propriété d'un objet comme texte. Par la suite dans mon code je change la valeur de la propriété et j'aimerai pouvoir rafraichir mon TreeView pour prendre en compte cette nouvelle valeur. Est-ce possible ? (Refresh ne marche pas).
Ca doit être un problème de pointeur. Peut-être qu'il effectue une copie du texte et ne garde pas la référence du pointeur ...

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
 
//initialisation de mon TreeView
tvListe.Items.BeginUpdate;
with tvListe.items do
begin
  clear;
  for j := 0 to lDossier.Count - 1 do
  begin
    dossier := TDossier(lDossier[j]);
    addObject(nil, dossier.strLibelle, dossier);
  end;
end;  
tvListe.Items.EndUpdate;
 
.... Un peu plus loin dans le code
 
TDossier(lDossier[1]).strLibelle := 'Nouveau texte';
tvListe.Refresh; //Le nouveau libellé n'est pas pris en compte :(

[ShaiLeTroll]

Peut-être qu'il effectue une copie du texte et ne garde pas la référence du pointeur ...

Tu as la réponse, c'est tout à fait cela !
Mieux vaut pas trop se baser sur les références sur les string, ce n'est pas comme un objet où c'est le même partout, en Delphi, il y a un compteur de référence pour minimiser les allocations, je ne l'ai jamais bien compris pour ma part ... mais lorsque tu modifie une chaine, cela ne modifie que la référence en cours en allouant une nouvelle chaine (UniqueString) et laissant l'ancienne chaine pour les autres références, ainsi

Code :

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

1
2
3
4
5
A, B, C variables globales : 
A := 'toto'; // Allocation, Ref = 1 
B := A; // Ref + 1
C := A; // Ref + 1
A := 'titi'; // Ref - 1 + Allocation

J'avais participé à un sujet sur le compteur de référence qui a éclairé ma lanterne récemment, je ne l'ai pas retrouvé ...

Tu dois attacher un TTreeNode à un TDossier ...

Code :

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

1
2
dossier := TDossier(lDossier[j]);
dossier.Node := addObject(nil, dossier.strLibelle, dossier);

Code :

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

TDossier(lDossier[1]).Node.Text :=  'Nouveau texte';

[stanislas]

Merci ... et dommage qu'il ne fonctionne pas avec pointeur, ça éviterait de devoir changer manuellement le texte