Discussion :

[therouxy]

Bonjour,

J'ai un treeview comportant des items, pour chacun de ceux ci, je souhaite indiquer quelle procédure est utilisée pour remplir ses descendants.

J'ai une procédure générale CreerNode qui me sert à créer un noeud et affecter diverses valeurs, j'aimerai lui passer une procédure en plus afin que pour chaque noeud, je sache précisément quelle procédure sert à le remplir. ça me permettra tout simplement de ne rafraichir que les enfants du noeud en question sans avoir à recréer l'arbre en totalité.

J'ai vaguement essayé de déclarer qq chose du style

Code :

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

1
2
3
4
 
Type TMethod = procedure of object;
 
procedure CreerNode(....; pMethod:TMethod);

et de l'appeler avec

Code :

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

1
2
 
CreerNode(...., Proc1)

Mais ça n'a pas marché, les procédures d'alimentation peuvent aussi avoir différents paramètres (le nombre diffère d'ailleurs suivant les procédures).

Merci de votre aide,
Olivier roux

[korntex5]

pourquoi ne fais tu pas quelque chose du style

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
 
procedure creerNode(...,type:integer);
var
...
begin
...
 case type of
   1:
   begin
     ...
   end;
 
   2:
   begin
    ...
   end;
....
end;

[therouxy]

En fait, je veux juste stocker la procédure à appeler lors d'un refresh d'un noeud. A partir du noeud passé en paramètre, lLa procédure de refresh récupère la procédure d'alimentation indiquée lors du CreerNode et l'utilise pour rafraîchir uniquement le noeud choisi sans toucher au reste de l'arbre. Je m'en suis sorti en passant le nom de la procédure en chaîne et en faisant dans ma procédure de refresh :
si Node.ProcedureALancer='XXX' then
XXX
end;
Mais bon, ça oblige à coder toutes les procédures dans des "si" alors que ça aurait été plus propre de le faire façon objet je pense....

Pas grave ça fonctionne, c'est le principal.
Merci quand même.
Olivier Roux

[sjrd]

Tu peux le faire assez proprement tout de même avec TMethod (pas celui que tu as défini ci-dessus, mais celui définit par défaut dans System).

D'abord tu dois définir un type méthode pour chaque type de noeud (pour chaque ensemble de paramètres).

Code :

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

1
2
3
4
type
  TCreerNoeudAvecChaine = procedure(Chaine : string) of object;
  TCreerNoeudAvecEntier = procedure(Entier : integer) of object;
  TCreerNoeudAvecChaineEtEntier = procedure(Chaine : string; Entier : integer) of object;

Ensuite, tu déclares ta procédure CreerNoeud comme suit :

Code :

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

procedure CreerNoeud(..., pMethod : TMethod);

Dans le corps de la procédure, tu appelles pMethod en la transtypant en fonction du type de noeud à créer :

Code :

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

1
2
3
4
5
6
7
8
9
procedure CreerNoeud(..., pMethod : TMethod);
begin
  ...
  case TypeNoeud of
    NoeudAvecChaine : TCreerNoeudAvecChaine(pMethod)(MaChaine);
    NoeudAvecEntier : TCreerNoeudAvecEntier(pMethod)(MonEntier);
    NoeudAvecChaineEtEntier : TCreerNoeudAvecChaineEtEntier(pMethod)(MaChaine, MonEntier);
  end;
end;

Puis tu appelles CreerNoeud de cette façon :

Code :

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

CreerNoeud(..., MonCreerNoeudAvecEntier);

[therouxy]

Je vais essayé ceci, ça me parait beaucoup plus "propre" !

Merci

Olivier Roux