Remplissage récursif d'un treeview.

**nek_kro_kvlt** · 06/10/2006, 12h20

Bonjour, j'ai une table qui se présente de la sorte

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
procedure TForm1.loaddb();
Const
pref_geo='GEO$';
var i : integer;
Paysli, Oli :TTreeNode;
fields:tstringlist;
fieldsG:tstringlist;
pkf:string;
begin
treefields.Items.Clear;
treecust.Items.Clear;
fieldsyears:='';
fields:=tstringlist.Create;
fieldsG:=tstringlist.Create;
 
if length(cmbtables.Text) <1 then exit;
 
 pkf:=getpk(cmbtables.Text); //clef primaire de la table
paysli:=treefields.Items.Add(nil,'Pays');
Oli:=treefields.Items.Add(nil,'Paramètres');
 
  UIBQuery.SQL.Clear;
  UIBQuery.SQL.Add('SELECT * FROM "' + cmbtables.Text + '";');
  UIBQuery.Open;
 
 
  for i := 0 to UIBQuery.Fields.FieldCount - 1 do
  begin
        if(lowercase(pkf) <> lowercase(UIBQuery.Fields.SqlName[i])) then
  	begin
  	if(not isnumeric(UIBQuery.Fields.SqlName[i])) then
        	if(leftstr(UPPERCase(UIBQuery.Fields.SqlName[i]),length(pref_geo))=pref_geo) then  //je veux séparer les champs commençant par pref_geo a part...
  	        	fieldsG.add(UIBQuery.Fields.SqlName[i])
                else
                        fields.add(UIBQuery.Fields.SqlName[i])
 	 else begin
         	fieldsyears:=fieldsyears+ ',SUM("' + UIBQuery.Fields.SqlName[i] +'") as "' + UIBQuery.Fields.SqlName[i] +'"';
            	fieldsyears2:=fieldsyears2+ ',"' + UIBQuery.Fields.SqlName[i] +'"';
  	end;
        end;
  end;
 
UIBQUERY.close();
treefields.items.BeginUpdate;
recfields(fieldsG,paysli);
recfields(fields,Oli);
treefields.items.endUpdate;
 
end;

Et la fonction récursive:

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
24
25
26
27
28
 
procedure tform1.recfields(fields : tstringlist;  item : TTreeNode);
var
titem : TTreeNode;
tf:tstringlist;
i:integer;
begin
if not (fields.Count>0) then exit;
 
 
UIBQuery.SQL.Clear;
UIBQuery.SQL.Add('SELECT DISTINCT "' + fields[0] + '" FROM "' + cmbtables.Text + '";');
UIBQuery.Open;
tf:=TStringList.Create;
fields.Delete(0);
while not UIBQuery.EOF do
begin
    tf.Add(UIBQuery.Fields.AsString[0]);
    UIBQuery.Next;
end;
UIBQuery.Close();
for i := 0 to tf.Count - 1 do
begin
    titem:=treefields.Items.AddChild(item,tf.Strings[i]);
    recfields(fields,titem);
end;
tf.free;
end;

Seulement, ça ne marche pas, j'ai que le premier champ qui est rempli :s
Je vais chercher de mon coté, mais si quelqu'un pouvait m'aider, je galère un peu avec les treeviews...
Merci d'avance!

**Rayek** · 06/10/2006, 14h09

Voici un ensemble de procédure qui permettent de faire ce que tu veux, j'ai retrouvé çà dans un vieux code donc c'est perfectible

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
var
  FieldList: TStringList;
 
...
 
procedure TfrmMain.FillTree;
begin
  With ModuleDonnees do
  begin
    FieldList := TStringList.create;
    TreeView1.Items.Clear;;
    TreeView1.items.BeginUpdate;
    LeQuery.first;
    while not LeQuery.eof do
    begin
       TreeAddItem(TreeView1, GetFieldList, LeQuery.getBookmark, false);
       LeQuery.next;
  end;
  FieldList.clear;
  TreeView1.items.Endupdate;
  fieldList.free;
end;
 
// Le query a un truc du style
// select champ1,Champ2,Champ3 from latable
// order by champ1,champ2,champ3
function TfrmMain.GetFieldList: TStringList;
begin
  With ModuleDonnees do
  begin
    FieldList.clear;
    FieldList.add(LeQuery.fieldbyname('Champ1').asstring);
    FieldList.add(LeQuery.fieldbyname('Champ2').asstring);
    FieldList.add(LeQuery.fieldbyname('Champ3').asstring);
    Result := FieldList;
  end;
end;
 
function TfrmMain.TreeAddItem(Sender: TTreeView; ItemList: TStrings; Bookmark: TBookmark; Resort: Boolean): TTreeNode;
var
   ThisNode, Node: TTreeNode;
   I: Integer;
begin
     Node := nil;   //nil = level 0 has no parent node
                    //this is checked by TreeFindItem
     for I := 0 to Itemlist.count -1 do
     begin
          ThisNode := TreeFindItem(Sender, node, Itemlist[i]);
          if ThisNode <> nil then Node := ThisNode else
          begin
               if I < Itemlist.count -1 then
               begin
                    if I = 0 then Node := Sender.items.AddObject(Node, Itemlist[i],Bookmark)
                    else Node := Sender.items.AddChildObject(Node, Itemlist[i], BookMark);
               end else
               begin
                    if I = 0 then Node := Sender.items.AddObject(Node, Itemlist[i], Bookmark)
                    else Node := Sender.items.AddChildObject(Node, Itemlist[i], Bookmark);
               end;
               Node.stateIndex := Node.level + 1;
               if Resort and (Node.parent <> nil) then Node.parent.alphasort; 
          end;
     end;
     Result := Node;
end;

**nek_kro_kvlt** · 06/10/2006, 14h12

En fait ça venait des tstringlist en paramètres, l'algo était bon :s
VOici le code corrigé:

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
24
25
26
27
28
29
30
31
32
33
34
35
36
 
 
procedure tform1.recfields(fields :array of string;  item : TTreeNode);
var
titem : TTreeNode;
tf:tstringlist;
tfields : array of string;
i:integer;
begin
 
if not (length(fields)>0) then exit;
 
UIBQuery.SQL.Clear;
UIBQuery.SQL.Add('SELECT DISTINCT "' + fields[0] + '" FROM "' + cmbtables.Text + '";');
UIBQuery.Open;
tf:=TStringList.Create;
 
setlength(tfields,length(fields)-1);
for i := 1 to length(fields)-1 do
       tfields[i-1]:=fields[i];  //on enlève le premier
 
 
while not UIBQuery.EOF do
begin
    tf.Add(UIBQuery.Fields.AsString[0]);
    UIBQuery.Next;
end;
UIBQuery.Close();
for i := 0 to tf.Count - 1 do
begin
    titem:=treefields.Items.AddChild(item,tf.Strings[i]);
    recfields(tfields,titem);
end;
tf.free;
setlength(tfields,0);
end;

**liazidf** · 06/12/2006, 16h59

Votre exemples est interessant, mais il fait appel à la function TreeFindItem qui n'est définie nul part.

Code :

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

1
2
3
4
5
6
7
8
for I := 0 to Itemlist.count -1 do
     begin
          ThisNode := TreeFindItem(Sender, node, Itemlist[i]);
          if ThisNode <> nil then Node := ThisNode else
          begin
               if I < Itemlist.count -1 then
               begin
                    if I = 0 then Node := Sender.items.AddObject(Node, Itemlist[i],Bookmark)

**Rayek** · 07/12/2006, 08h38

voici la fonction manquante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function TreeFindItem(Sender: TTreeView; NodeItem: TTreeNode; Name: String): TTreeNode;
begin
     if NodeItem = nil then NodeItem := Sender.items.getfirstnode
     else NodeItem := NodeItem.getfirstchild;
 
     if (NodeItem <> nil) and (NodeItem.text <> Name) then
     repeat
           NodeItem := NodeItem.getnextsibling;
     until (NodeItem = nil) or (NodeItem.text = Name);
     Result := NodeItem;
end;

Remplissage récursif d'un treeview.

Delphi

Discussions similaires

Partager

Partager