Appel de Fonction de façon "dynamique"

Bonjour,

Je souhaite savoir s'il est possible d'appeler une fonction en ayant son nom dans une variable sans pour autant faire une sorte d'interprétteur.

En gros, je souhaiterais être à même de créer une procédure :
procedure appel_fonction(nom_fonction : String);
mais je ne souhaite pas effectuer de comparaison du contenu de nom_fonction pour effectuer le traitement associé.

Je ne sais pas si j'ai été clair...
J'espère en tout cas que quelqu'un pourra me répondre/comprendre et me donner une piste à suivre :)

merci d'avance

En fait je comprends ce que tu veux faire, mais ca me semble compliqué, le seul moment ou jai vu qu'on pouvait identifier une fonction par un nom( PChar) c'était quand tu appelles une fonction d'une dll à l'aide de GetProcAddress...

Mais doit ya avoir un moyen, je vais regarder ça..

Dans quel but précis veux tu faire ça?



j!nH

hello,

explique moi l'interet de cette procedure ?
pourquoi ne pas simplement lancer tes fonctions ?

tu peux par exemple faire :

procedure appel_fonction(nom_fonction : String); begin if nom_fonction = Fonction1 then Fonction1 else if nom_fonction = Fonction2 then Fonction2 else if nom_fonction = Fonction3 then Fonction3; ... end;

ça te va ? c ce que tu cherches ?

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

-------------------------------------------
[ Lien ] : mon site refait ! Delphi power !

Non à mon avis pas, il a bien précisé qu'il ne voulait pas faire de comparaison :-).

j!nH

oups dsl ! j'ai été trop vite en besogne :/

bon et bien alors je ne connais pas d'autre soluce pour le moment ...

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

-------------------------------------------
[ Lien ] : mon site refait ! Delphi power !

Salut,

je ne comprends pas (non plus) bien pourquoi tu ne veux pas faire de comparaison sur nom_fonction ...

si ton objectif est d'éxécuter une fonction directement à partir de la chaîne nom_fonction, ce n'est possible qu'à condition
que les fonctions à appeler soient des méthodes (publiques?) d'un objet et en faisant appel aux RTTI. (Run Time Type Infos).

Dans le cas contraire, tu peux aussi construire un tableau à deux dimensions (String, pointeur sur fonctions ) à conditions que toutes les fonctions à appler aient le même prototype.

Damien

WOW
superbe code !
a garder en favoris :)
merci ZeWaren ;)

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

-------------------------------------------
[ Lien ] : mon site refait ! Delphi power !

OK, le code est bien, mais il ne s'applique qu'à des méthodes et non à des procédures ou fonctions "toutes simples", autrement dit celles qui ne sont pas "of object".

Affaire à suivre...

May Delphi be with you

non, ca s'applique tres bien a n'importe quelle variable, ce code marche impec, il suffit de definir les procedures avec le meme nombre de param et le meme type.

TProcedure2Param = procedure(Param1, Param2: String); TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; Procedure Stuff(Param1, Param2: String); Procedure ReStuff(Param1, Param2: String); var Form1: TForm1; Procedure2Param: TProcedure2Param; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin @Procedure2Param := @Stuff; Procedure2Param('a', 'b'); @Procedure2Param := @ReStuff; Procedure2Param('a', 'b'); end; Procedure Stuff(Param1, Param2: String); Begin ShowMessage('Stuff'); End; Procedure ReStuff(Param1, Param2: String); Begin ShowMessage('ReStuff'); End;

bouh