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 ?