Pointeurs de fonctions.......

[pf]

salut à tous,
Un ch'tit probleme (un de + ) avec Delphi
Voila :

Code : Tout sélectionner

//= Declare type et pointeur ====================
PTTrucBidule = ^TTrucBidule;
TTrucBidule = PROCEDURE TrucBidule(Para1:Integer;Para2:Boolean);

//= Declare les fonctions ====================
PROCEDURE TrucBidule1(Para1:Integer;Para2:Boolean);
PROCEDURE TrucBidule2(Para1:Integer;Para2:Boolean);
PROCEDURE TrucBidule3(Para1:Integer;Para2:Boolean);
PROCEDURE TrucBidule4(Para1:Integer;Para2:Boolean);
(les fonctions sont bonnes !! )

//= Le pointeur qui va bien ====================
FTrucBidule:PTTrucBidule;

//= Et l'appel a la fonction qui marche pas ===============
FTrucBidule:=@TrucBidule1;
FTrucBidule1^(1,FALSE); => Plantage : lecture a l'adresse xxxxx

En C, ca le fait tous seul, mais la, il y a une astuce qui m'echape !!!!!
Plize, ailpe me !!!!!!!
A+

[Antonio]

En delphi pas la peinde définir de pointeur sur une fonction car une fonction est déjà un pointeur. Il suffit de déclarer le type

Code : Tout sélectionner

//= Declare type ==================== 
TTrucBidule = PROCEDURE (Para1: Integer; Para2: Boolean); 

//= Declare les fonctions ==================== 
PROCEDURE TrucBidule1(Para1:Integer;Para2:Boolean); 
PROCEDURE TrucBidule2(Para1:Integer;Para2:Boolean); 
PROCEDURE TrucBidule3(Para1:Integer;Para2:Boolean); 
PROCEDURE TrucBidule4(Para1:Integer;Para2:Boolean); 
(les fonctions sont bonnes !! ) 

//= La variable qui va bien ==================== 
FTrucBidule: TTrucBidule; 

//= Et l'appel a la fonction qui devrait marcher =============== 
FTrucBidule := TrucBidule1; 
FTrucBidule1(1, FALSE);

[pf]

Merci Antonio; Ca marche au poil !!!
Pourquoi faire compliqué alors que c'était si simple ???!!!
Bonne journée
A+

[Antonio]

C'est beau quand même Delphi je regrette pas d'avoir quitté le C++ (je vais pas me faire des amis )

[pf]

Moi je regrette surtout que tu n'ai pas écrit PhotoFiltre en C !!!!!
Dans le Pascal, la seule chose que je trouve bien, c'est le nom
A+