Discussion :

[nek_kro_kvlt]

J'ai 2 treeview. La première récupère ses données dans une table, ensuite, on peut faire passer des données de la première vers la deuxième. J'utilise pour cela une boucle for pour copier les items.

Voici un bout du code:

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
 
nnode:=treecust.Items.AddChild(nil,treefields.Selected.text);
 
       for i := 0 to treefields.Selected.count - 1 do
       begin
       if(getindex(treefields.Selected.Item[i].text, nnode) < 0 ) then //
          treecust.Items.AddChild(nnode,treefields.Selected.Item[i].Text);
          application.ProcessMessages;
           progressbar1.StepBy(1);
       end;
 
function TFORM1.getindex(str: string; inode : ttreenode) : integer;
  var
  i:integer;
  begin
  result:= -1;
      for i := 0 to inode.Count - 1 do
       begin
           if (Lowercase(inode.Item[i].Text)=lowercase(str)) then
           		result:=i
       end;
  end;

Le soucis c'est que au delas d'une centaine d'enregistrement, le processeur est saturé, et cela mets beaucoup de temps à copier ... Quelqu'un aurait-il une autre méthode pour copier efficacement 2 nodes? Sachant que la node de destination n'est peut être pas vide, et ne dois pas avoir de doublons.

Merci d'avance.

[LadyWasky]

Salut,

Avant la mise à jour des données, il faut que tu utilise BeginUpdate, et des que c'est fini, EndUpdate :

Code :

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

1
2
3
4
5
6
7
8
9
treecust.Items.BeginUpdate;
for i := 0 to treefields.Selected.count - 1 do
       begin
       if(getindex(treefields.Selected.Item[i].text, nnode) < 0 ) then //
          treecust.Items.AddChild(nnode,treefields.Selected.Item[i].Text);
          application.ProcessMessages;
           progressbar1.StepBy(1);
       end;
treecust.Items.EndUpdate;

La différence sera flagrante....

Ensuite, ton GetIndex, tu peux l'optimiser.

Au lieu de parcourir tout les noeuds, tu arrête la boucle dès que tu as trouvé celui qui correspond (en plus si inode.Count est égal à zéro, ton machin plantera : for i:=0 to -1 do) :

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
function TFORM1.getindex(str: string; inode : ttreenode) : integer;
  var
  i:integer;
  trouve:boolean;
  begin
  result:= -1;
  trouve:=false;
  i:=0;
  while ((i<inode.Count) and (not trouve)) do
       begin
           trouve:=(Lowercase(inode.Item[i].Text)=lowercase(str));
           if trouve then result:=i;
           inc(i);
       end;
  end;

Bon dev

[nek_kro_kvlt]

Merci, je vais essayer ça tout de suite