Discussion :

[Bruno13]

Bonjour à tous,

Je suppose que cela doit être facile pour certain de faire cela, mais j'avoue que pour moi c'est un peu trop.

Je cherche à représenter dans un VirtualStringTree (j'y tiens à ce composant)
la hierarchie que je rencontre dans mon fichier texte donné ci-dessous.

Mon fichier Texte contient (Def. Définition, Ref. Référence):

Def. 1
Def. 2 qui fait Ref. à Def. 1
Def. 3 qui fait Ref. à Def. 1
Def. 4 qui fait Ref. à Def. 3
Def. 5
Def. 6 qui fait Ref. à Def. 5
Def. 7 qui fait Ref. à Def. 6

ce qui donnerai :

Code :

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

1
2
3
4
5
6
7
8
 
Def 1. + Texte
 |_ Def 2. + Texte
 |_ Def 3. + Texte
      |_Def 4. + Texte
Def 5. + Texte
 |_Def 6. + Texte
     |_Def 7. + Texte

Toutes les données sont textuelles, c'est vraiment du texte/phrase que j'ai et qui commence par Def.x et dans lequel il y a le mot Ref.y

Le mieux pour moi serait un petit code source, mais là je sais que j'abuse donc vos conseils seront les bienvenus biensûr !

D'avance merci à tous pour vos réponses.
Amicalement,
Bruno

[MedGIR]

Bonjour, pour utiliser la virtualtreeview de Soft-gems, il faut imperativement utiliser des pointeurs et des objets.

Dans ton cas, tu devrais créer un objet comme ceci:

Code :

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

1
2
3
4
5
6
7
Type
 
TMonObjet = class
published
 property Definition : string read fDefinition write fDefinition;
 property Reference : string read fReference write fReference;
end;

Après dans ton code qui lira ton fichier texte, par exemple quand on appuie sur le bouton1

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
procedure Tform1.Button1Onclick(Sender : tobject);
var
 MonObject : tMonObjet;
begin
 NomDeLaVirtualTree.NodeDataSize := SizeOf(tMonObjet); 
 NomDeLaVirtualTree.Clear;
 
 //Lecture sequentielle de ton fichier texte
 //A toi de faire la boucle
 //A chaque enregistrement trouvé tu dois créer un objet avec ses propriétés mise à jour...
 //Par exemple avec une base de données en non pas un fichier texte, mais le principe est le meme:
 Fichier.Open;
 Fichier.First;
 While not Fichier.eof do
 begin
  MonObjet := TMonObjet.create;
  MonObjet.Definition := Fichier.Field('Def').asString;
  MonObjet.Reference := Fichier.Field('Ref').asString;
  //Appel de la fonction (GetFather) que l'on aura crée pour trouver le noeud père
  NomDeLaVirtualTree.addChild(GetFather(MonObjet),MonObjet);
  Fichier.Next;
 end;
end;

Description de la fonction GetFather:

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
function tForm1.GetFather(MonObjet : tMonObjet):pVirtualNode;
var
 data : ^TMonObjet;
 CurrentNode : pVirtualnode;
begin
 result := nil;
 CurrentNode := NomDeLaVirtualTree.GetFirst;
 While CurrentNode <> nil then
 begin
  Data := NomDeLaVirtualTree.getNodeData(CurrentNode);
  If data.Reference = MonObject.Reference then
  begin
   Result := CurrentNode;
   Break; 
  end;
 CurrentNode := NomDeLaVirtualTree.GetNext(CurrentNode);
 end;
end;

Maintenant il faut afficher le contenu

Dans l'evenement OnGetText de la treeview

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure Tform1.NomDeLaVirtualTreeGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
var
  Data : ^TMonObjet;
begin
  Data := Sender.GetNodeData(Node);
  CellText := Data.Definition;
end;

Voila, voila, j'espère que je t'aurais un peu aidé... et que j'ai été a peu près clair et compréhensible

[Bruno13]

Salut MedGir,

Merci bcp pour ta réponse, c'est tout à fait l'aide que j'osais espérer.
Je teste cela tout de suite dans un petit projet et je reviens sur ce post pour te tenir informé.

Amicalement,
Bruno

[Bruno13]

Re-Bonjour MedGir,

Mise à part une ou deux petite modif ton source marche impecable !!
J'ai ouvert un autre post car maintenant c'est l'extraction des chaines de caractères à exrtaire pour remplir mes objets qui me pose problème.

Amicalement,
Bruno

[MedGIR]

Je suis content que cela t'ai servi... En effet, il pouvait y avoir quelles erreurs, je n'avais pas Delphi sous la main quand je t'ai proposé le code...

Bon developpement

Normalement dans les semaines a venir, je devrais proposer un tutoriel d'utilisation de la virtualtreeview sur www.developpez.com... Mais il me faut du temps...

[Fxg]

Je te remercie d'avance pour ton tuto que j'attends avec impatience. Il est pas toujours facile de s'en servir même avec les exemples quand c'est la première fois que l'on veut utiliser les treeview