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...