Exécution d'une procédureRésolu

Question

Bonjour,

Voici mon probl&#232;me ...
Dans ma base de donn&#233;e j'ai une liste de traitement &#224; &#233;xecuter :
TRT1
TRT2
TRT3
...
TRTn

Dans Delphi je dois lancer ces traitements:
TRT1;
TRT2;
TRT3;
...
TRTn;

J'aimerais une fonction qui permette de lancer un Traitement chaine :
For Cpt := 1 To Nombre_TRT Do
Begin
   ExecTRT('TRT'& IntToStr(Cpt));
End;

Pour l'instant j'en suis r&#233;duit &#224; faire If 'TRT1' Then TRT1 ... si je rajoute une chaine dans ma base de donn&#233;e je suis oblig&#233; de changer le code source ... pourri ...

Merci

vaughan

cs_Delphiprog · Accepted Answer

Si c'est possible, et ce n'est m&#234;me pas compliqu&#233; !

Voir Appel de Fonction de fa&#231;on "dynamique"  et notamment la r&#233;ponse de ...moi  sur ce forum


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

yvemoreau · Answer

bah je vois pas trop 

cr&#233; une proc&#233;dure avec une variable Integer;

interface
Procedure traitement(X:Integer);

implementation
Procedure traitement(X:Integer);
begin
case X of 
0:begin // cas #0
     ///
   end;
1:begin // cas #1
    ///
  end;
//etc,,,
end;
end;

ensuite tu l'appelles depuis une autre proc&#233;dure

var y:Integer;

for y:=1 to 30 do traitement(y);

yve

vaughan · Answer

Le but est de faire une fonction g&#233;n&#233;rique qui permette de rajouter un traitement en base de donn&#233;e sans changer de code.

Ta solution est tr&#233;s bien au niveau pr&#233;sentation mais si je dois rajouter un traitement, il me faudra rajouter dans le code 

n+1 : TRT_N+1;

Pas cool ... merci tout de m&#234;me ...

Dans d'autre language on peut le faire, exemple en javascript la fonction EVAL(Chaine_traitement) ...

vaughan

cs_grandvizir · Answer

En JS c'est possible, car le code est interpr&#233;t&#233; et non compil&#233;. Les noms de proc&#233;dure sont gard&#233;s, mais en compil&#233;, tout devient des adresses binaires (et y'a plus de noms).

Sachant que tu nous nous donnes pas de code Delphi, il serait &#233;tonnant que tes N proc&#233;dures soient toutes diff&#233;rentes. Parce que comme le dit si justement yvemoreau, tu n'as qu'&#224; juste faire une proc&#233;dure avec un param&#232;tre qui variera le fonction de la proc&#233;dure.

Au final, il y a un soup&#231;on d'absurdit&#233; dans l'air. En disant &#171;Si je dois rajouter un traitement...&#187; tu affirmes donc que ton nombre de proc&#233;dures n'est pas d&#233;fini, mais tu veux en m&#234;me temps une proc&#233;dure &#233;crite en brut qui puisse g&#233;rer un nombre infini de situations. C'est compl&#232;tement paradoxal. Tu viens de d&#233;montrer que ce que tu veux est impossible, ou tout simplement, que ce n'est pas clairement bien expliqu&#233;...

La solution donn&#233;e par yvemoreau est donc tout &#224; fait adapt&#233;e.

===========
ViewVite XP : HTML

vaughan · Answer

Merci pour l'&#233;claircissement :
"En JS c'est possible, car le code est interpr&#233;t&#233; et non compil&#233;. Les noms de proc&#233;dure sont gard&#233;s, mais en compil&#233;, tout devient des adresses binaires (et y'a plus de noms)."

Ma probl&#232;matique &#233;tait pas trop mal expliqu&#233; car vous l'avez tout les deux comprise ... seulement c'est impossible en Delphi ... je d&#233;porte la gestion des traitements dans ma base de donn&#233;e dans une pile d'execution ...

Merci

vaughan

vaughan · Answer

Merci &#224; tous ... 

vaughan

Exécution d'une procédure

6 réponses

Votre réponse

Discussions similaires