[Algo] Comment construire cette hiérarchie avec VirtualStringTree ?

Version imprimable

16/01/2008, 02h07
Bruno13

[Algo] Comment construire cette hiérarchie avec VirtualStringTree ?
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):

Citation:

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:

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

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:

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:

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:

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:

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

16/01/2008, 14h36
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
18/01/2008, 03h46
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
18/01/2008, 09h18
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...
18/01/2008, 13h56
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