Caster un string en fonctionRésolu

Question

Bonjour,



Pour faire court, j'ai une variable de type string et une proc&#233;dure, par exemple :



public

procedure fonction1();

Var1 : string;

...

Var1 :=  'fonction1';



Lorsque je clique sur un bouton, je voudrais lancer la fonction 'fonction1'. Mon probl&#232;me est donc le suivant.

Je  ne  veux pas faire :

   if Var1  = 'fonction'1 then fonction1();



Mais je voudrais "caster" Var1 en type "procedure". Je crois que c'est
possible, mais je ne retrouve aucune information sur ce genre de
manipulation.



Merci pour votre aide, d'avance.

CSweety13

Cirec · Accepted Answer

Un Exemple simple qui devrai t'aider

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    // Your routines (that you'll run by name) must be here
    procedure Hello_World(Sender: TObject);
  private
    procedure ExecuteRoutine(Instance: TObject; Name: string);
  end;


var
  Form1: TForm1;


type
  TExecute = procedure of object; 


implementation


{$R *.DFM}


procedure TForm1.ExecuteRoutine(Instance: TObject; Name: string);
var
  Routine: TMethod;
  Execute: TExecute;
begin
  Routine.Data := Pointer(Instance);
  // Returns the address of a published method.
  Routine.Code := Instance.MethodAddress(Name);
  if Routine.Code = nil then Exit;
  Execute := TExecute(Routine);
  Execute;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  ExecuteRoutine(Form1, 'Hello_World');
end;


procedure TForm1.Hello_World(Sender: TObject);
begin
  ShowMessage('This is a test');
end;
end.

Si tu cliques sur Button1 &#231;a lance Hello_World voil&#224; c'est tout

Cirec · Answer

Si j'ai bien compris tu voudrais lancer une fonction o&#249; une proc&#233;dure par son non

csweety13 · Answer

Oui, c'est &#231;a, en sachant que son nom je l'ai seulement dans la valeur de la variable Var1.



Je ne veut pas passer par :
    if Var1 =  'fonction'1  then  fonction1();

car, des fonctions, je peux en avoir un tr&#232;s grand nombre, et je ne veux pas mettre autant de fois de If Var1  = 'xxx' then xxx();

que j'ai de fonctions disponibles.


CSweety13

csweety13 · Answer

C'est nickel!!!



Merci beaucoup, je croyais ce que je demandais l'impossible 





CSweety13

cs_Delphiprog · Answer

Autre m&#233;thode d&#233;crite ici , pas plus compliqu&#233;e et qui ne s'applique pas n&#233;cessairement &#224; une "procedure of object" comme le souhaite  CSweety13.
<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.http://www.30millionsdamis.fr/FR/Popup/petition_2005/Petition.htm

Caster un string en fonction

5 réponses

Votre réponse

Discussions similaires