Discussion :

[petitcoucou31]

bonjour a tous,

Juste un conseil sur l'écriture de code, je voudrai savoir si il existe une méthode plus compacte d'écrire le code ci dessous.

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
 
if ControleSiChargementDll(I)=true then
        begin
           Rack  :=TabBit[TabAdressMesure[I].Rack];
           Panier:=TabBit[TabAdressMesure[I].Panier];
           CarteH:=TabBit[TabAdressMesure[I].CarteH];
           CarteL:=TabBit[TabAdressMesure[I].CarteL];
           case i of
               001 : begin
                             generique0001(253,NumMode,Rack,Panier,Carteh,CarteL,TypeCarteAvant,TypeCarteApres,P1,P2,P2,P4,P5, R1,R2,R3,R4,R5,Status);
                     end;
               002 : begin
                             generique0002(253,NumMode,Rack,Panier,Carteh,CarteL,TypeCarteAvant,TypeCarteApres,P1,P2,P2,P4,P5, R1,R2,R3,R4,R5,Status);
 
                     end;
               003 : begin
                             generique0003(253,NumMode,Rack,Panier,Carteh,CarteL,TypeCarteAvant,TypeCarteApres,P1,P2,P2,P4,P5, R1,R2,R3,R4,R5,Status);
 
                     end;
 
               ...... jusqu a
 
 
               254 : begin
                            generique0254(253,NumMode,Rack,Panier,Carteh,CarteL,TypeCarteAvant,TypeCarteApres,P1,P2,P2,P4,P5, R1,R2,R3,R4,R5,Status);
 
                     end;
               255 : begin
                            generique0255(253,NumMode,Rack,Panier,Carteh,CarteL,TypeCarteAvant,TypeCarteApres,P1,P2,P2,P4,P5, R1,R2,R3,R4,R5,Status);
 
                     end;
           end
         end;

Le but serai la création dynamique du nom de la procédure 'generiqueN' en fonction du numéro du case, pour supprimer le case.

Par exemple à la méthode de 'Findcompent' où l'on peut numéroter les composant pour les passer dans une boucle...

[Paul TOTH]

oui, il suffit de créer un tableau de procédures

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
  TProc = procedure(parms...);
 
procedure proc_001(params..);
begin
end;
 
procedure proc_002(params...);
begin
end;
 
const
  Procs:array[1..2] of TProc = (
    proc_001, proc_002
  );
 
begin  
  Procs[i](params...);
end;

[ShaiLeTroll]

Voir aussi les méthodes publiées et MethodAddress comme dans le sujet
Créer un jeu d'aventure textuel
Appel d'une fonction/TThread de façon paramétrique

La proposition de Paul TOTH sur un tableau de procédure a aussi été exploité dans le sujet
Déclaration de pointeur de fonction et structure
Le Tableau a l'avantage que dès la compilation les appels de fonctions respecterons le même prototype contrairement à une version RTTI où plus de surprises peuvent débarquer en RunTime !

petit rappel sur les booléens
if ControleSiChargementDll(I)=true then ou if ControleSiChargementDll(I) then sont équivalents mais la seconde est la forme recommandée !

[edam]

j'ai jamais eu 256 procédure dans une seul unité
est ce que tout ces procédure sont radicalement différent, ou simplement quelques lignes?

[Kaféine]

Pour supprimer le case, il suffit de créer une procédure "generique" avec les paramétres nécessaires a "generiqueXXX" plus un parametre index.
Suivant la complexite, soit conditionner la procedure "generique", soit déporter le case a l'interieur de celle ci

Code :

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

1
2
3
4
5
6
7
8
9
 
if ControleSiChargementDll(I) then
begin
  Rack  :=TabBit[TabAdressMesure[I].Rack];
  Panier:=TabBit[TabAdressMesure[I].Panier];
  CarteH:=TabBit[TabAdressMesure[I].CarteH];
  CarteL:=TabBit[TabAdressMesure[I].CarteL];
  generique(I, 253,NumMode,Rack,Panier,Carteh,CarteL,TypeCarteAvant,TypeCarteApres,P1,P2,P2,P4,P5, R1,R2,R3,R4,R5,Status);
end;

[chaplin]

Qu'est ce qui diffère dans l'implémentation des 256 procédures ?

[ShaiLeTroll]

Je ne sais pas si vous avez remarqué, mais petitcoucou31 n'a même pas répondu à nos propositions !
On ne sait même si nos réponses lui ont convenu ou pas ! on ne sait même pas si ils nous a lu !

Mais, je suis d'accord qu'un refactoring est peut-être (surement) utile !

Sinon, j'ai déjà ce type de structure pour la lecture d'un fichier (Format NX de la CCAM), pour chaque type de ligne, il fallait lire et traiter les données lues d'une façon différentes, le fichier alimentait près de 20 tables dans la DB pour un modèle relationnel exploitable dans l'application