Discussion :

[rvzip64]

Salut tout le monde,
je voudrais savoir comment je pourrais optimiser ce petit bout de code...

Je vous plante le tableau: j'utilise une TTreeView qui posséde une profondeur de 4 nodes.

Quand je fait la création d'une node je lui adjoint un object

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
 
type
  Tproduit=class
  private
    Id:Word;
  end;
 
  TFamille=class
  private
    Id:Word;
  end;
 
  TEtape=class
  private
    Id:string;
  end;
 
  TMachine=class
  private
    Id:Word;
  end;
 
 
  procedure CreateNoeudProduit;
  begin
    Temp:=Tproduit.Create;
    Tproduit(Temp).Id:=MyQuery1.Fields[0].value;
    NoeudProduit:=_treeView.items.AddChildObject(noeud,
      MyQuery1.Fields[1].value,Temp);
  end;
 
  procedure CreateNoeudFamille;
  begin
    Temp:=TFamille.Create;
    TFamille(Temp).Id:=MyQuery1.Fields[2].value;
    NoeudFamille:=_treeView.items.AddChildObject(NoeudProduit,
      MyQuery1.Fields[3].value,Temp);
  end;
 
  procedure CreateNoeudEtape;
  begin
    Temp:=TEtape.Create;
    TEtape(Temp).Id:=MyQuery1.Fields[4].value;
    NoeudEtape:=_treeView.items.AddChildObject(NoeudFamille,
      MyQuery1.Fields[5].value,Temp);
  end;
 
  procedure CreateNoeudMachine;
  begin
    Temp:=TMachine.Create;
    TMachine(Temp).Id:=MyQuery1.Fields[6].value;
    _treeView.items.AddChildObject(NoeudEtape,
      MyQuery1.Fields[7].value,Temp);
  end;

quand je fais la sélection du node je me base sur le type de classe pour savoir ce que je dois faire:

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
procedure TFrmMetroOffset._treeViewChange(Sender: TObject; Node: TTreeNode);
begin
  inherited;
  if assigned(node.data) then //Est ce qu'on object est assigné ?
  begin
    if TObject(node.data).ClassType=Tproduit then
      showmessage('Produit');
 
    if TObject(node.data).ClassType=TFamille then
      showmessage('Famille');
 
    if TObject(node.data).ClassType=TEtape then
      showmessage('Etape');
 
 
    if TObject(node.data).ClassType=TMachine then
    begin
      showmessage(
      'Produit '+inttostr(Tproduit(node.Parent.Parent.Parent.data).Id)+#13#10+
      'Famille '+inttostr(TFamille(node.Parent.Parent.data).Id)+#13#10+
      'Etape '+TEtape(node.Parent.data).Id+#13#10+
      'Machine '+inttostr(TMachine(node.data).Id)
      );
    end;
  end;
end;

Ma question est : Comment je pourrais faire pour remplacer mes If par un case ?

[Aka Guymelef]

En utilisant seulement ce qui est à ta disposition sans rien toucher je ne pense pas que ce soit trop possible. Par contre tu pourrais implémenter un truc comme ça :

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
type
  TRootNodeClass = class
  public
    class function GetClassIdentifier: Integer; virtual; abstract;
  end;
 
...
  TExemple = class( TRootNodeClass )
  public
    class function GetClassIdentifier: Integer; override;
  end;
...
 
const
  ID_EXEMPLE = 1;
 
function TExemple.GetClassIdentifier: Integer;
begin
  result := ID_EXEMPLE;
end;

Après tu peux caster le sender sur TRootNodeClass et tester la valeur que renvoit GetClassIdentifier dans un case.

[Nono40]

Ma question est : Comment je pourrais faire pour remplacer mes If par un case ?

Si j'ai bien compris chaque niveau est toujours du même type ?
Tu ne peux pas faire simplement un test sur TTreeNode.Level ?

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 TFrmMetroOffset._treeViewChange(Sender: TObject; Node: TTreeNode);
begin
  inherited;
  if assigned(node.data) then //Est ce qu'on object est assigné ?
  begin
    case node.level of
      0:showmessage('Produit');
      1:showmessage('Famille');
      2:showmessage('Etape');
      3:showmessage(
        'Produit '+inttostr(Tproduit(node.Parent.Parent.Parent.data).Id)+#13#10+
        'Famille '+inttostr(TFamille(node.Parent.Parent.data).Id)+#13#10+
        'Etape '+TEtape(node.Parent.data).Id+#13#10+
        'Machine '+inttostr(TMachine(node.data).Id)
      );
    end;
  end;
end;

[edam]

pourquoi pas faire comme les ocmposants, ajouter un tag

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Tproduit=class
  private
    Id:Word;
    tag:Integer;
  constructeur creat; 
  end;
Constructor Tproduit.creat;
begin
     inhereted;
     tag:=1;
end;

c'est une idée mais pas sûr de code

[rvzip64]

Oui en effet , vous avez de bonne idée qui me simplifie bien la vie ... je vais regarder du coté des niveaux...

Par contre maintenant que je relis (a tete reposée) mon code, je trouve que

Code :

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

node.Parent.Parent.Parent.data

, ca fait peut etre un peut lourd tout ça ... est ce qu'il vaudrait pas mieux que j'inclus les informations des parents directement dans le noeud enfant ?

[anapurna]

salut

Tu peut faire une fonction récursif avec en para mettre le niveau de récursion
genre :

Code :

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

1
2
3
4
5
6
7
8
9
Function getdata(node : TTreeNode;Niv : Integer) : TBase ;
  var 
     Tmpnode : TTreeNode
  begin
     Tmpnode := node;
     for i := 0 To Niv do
       Tmpnode := Tmpnode.parent;
   Result := TBase(Tmpnode.data)  
  end;

@+ Phil

[Paul TOTH]

STOOOOOOOOOOOOP !

ça c'est du Delphi façon bourrin

on peut faire bien mieux

1) les Noeds étant des noeuds, on va pas les coller dans le propriété DATA d'u noeud, on va en faire des NOEUDS !

Code :

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

1
2
3
4
 
type
 TProduit=class(TTreeNode)
 end;

et comme on a des noeuds qui partagent une propriété identique, on va les faire hérité d'un même objet

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
 
  TWordIDNode=class(TTreeNode)
  private
    Id:Word;
  end;
 
  Tproduit=class(TWordIDNode)
  end;
 
  TFamille=class(TWordIDNode)
  end;
 
  TEtape=class(TTreeNode)
  private
    Id:string;
  end;
 
  TMachine=class(TWordIDNode)
  end;

ensuite on va pas s'embêter à tester la classe du noeud car se sont des objets, et on va exploiter le polymorphisme en insérant un nouvel ancêtre commun :

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
 
type
 TMessageNode=class(TTreeNode)
 public
  function Message:string; virtual; abstract;
 end;
 
 TWordIDNode=class(TMessageNode)
 private
  id:word;
 end;
 
 TProduit=class(TWordIDNode)
 public
  function Message:string; override;
 end;
 
function TProduit.Message:string;
begin
 Result:='Produit';
end;

et on fait de même pour toutes les classes...

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
 
 TMachine=class(TWordIDNode)
 private
  function Etape:TEtape;
 public
  function Message:string; override;
 end;
 
function TMachine.Etape:TEtape;
begin
 Result:=Parent as TEtape;
end;
 
function TMachine.Message:string;
begin
 Result:='Produit '+inttostr(Etape.Famille.produit.Id)+#13#10+
        'Famille '+IntToStr(Etape.Famille.Id)+#13#10+
        'Etape '+Etape.Id+#13#10+
        'Machine '+inttostr(Id)
end;

dans TMachine je propose également de déclarer une méthode d'accès au parent en le transtypant (idem pour les autres classes)...il est aussi possible de le stocker en propriété privée, mais ça ferait doublon avec le parent.

et une fois qu'on a fait tout ça, le click devient des plus simple

Code :

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

1
2
3
4
5
 
procedure TFrmMetroOffset._treeViewChange(Sender: TObject; Node: TTreeNode);
begin
 ShowMessage(TMessageNode(Node).Message);
end;

Et là on passe du clickodrôme à la programmation

[anapurna]

salut

si je peut me permettre
au lieu de

Code :

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

1
2
3
4
5
6
7
8
9
TMessageNode=class(TTreeNode)
 public
  function Message:string; virtual; abstract;
 end;
 
 TWordIDNode=class(TMessageNode)
 private
  id:word;
 end;

faire

Code :

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

1
2
3
4
5
 
TWordIDNode=class(TTreeNode)
   function Message:string; virtual; abstract;
   id:word;
end;

j'aime pas le code qui sert a rien

@+ Phil

[Paul TOTH]

oui mais tu as oublié qu'il y a une classe qui n'est pas dérivée de TWordIDNode , celle dont l'ID est un string