Passer une Fonction en Paramètre

Bonjour,

je cherche un moyen de passer une fonction en parametre pour pouvoir l'executer dans une autre fonction afin d'avoir un code plus propre.

Exemple :

procedure X;
var
    status : integer
begin
status := 1;
while status <> 0 do                             status:=DAQmxReadAnalogF64(TaskHandleAI[nDevice,nCanal],-1,10.0,DAQmx_Val_GroupByChannel,Buffer,NbMesures,@status1,nil);

status := 1;
while status <> 0 do        status:=DAQmxStopTask(TaskHandleAI[nDevice,nCanal]);
end;

je voudrais a la place

procedure X;
begin
Y(DAQmxStopTask(TaskHandleAI[nDevice,nCanal]));
Y(DAQmxReadAnalogF64(TaskHandleAI[nDevice,nCanal],-1,10.0,DAQmx_Val_GroupByChannel,Buffer,NbMesures,@status1,nil));
end;

procedure Y(fct : ....)
var
    status : integer;
begin
    status := 1;
    while status <> 0 do
       status := fct;
end;

Merci Beaucoup pour votre aide

Bonne Prog

Bonjour moldov,

Et pourquoi ne fais tu pas une function recursive ?

exemple :

procedure X;
begin
  DAQmxReadAnalogF64(TaskHandleAI[nDevice,nCanal],-1,10.0,DAQmx_Val_GroupByChannel,Buffer,NbMesures,@status1,nil);
  DAQmxStopTask(TaskHandleAI[nDevice,nCanal]);
end;

function DAQmxReadAnalogF64(TaskHandleAI[nDevice,nCanal], -1, 10.0, DAQmx_Val_GroupByChannel, Buffer, NbMesures, @status1, nil) : integer;
begin
 // Traitement puis on traite le resultat si different de 0 alors on appel la même fonction.

  if Result <> 0 then
     Result := DAQmxReadAnalogF64(TaskHandleAI[nDevice,nCanal],-1,10.0,DAQmx_Val_GroupByChannel,Buffer,NbMesures,@status1,nil);
end;

function DAQmxStopTask(TaskHandleAI[nDevice,nCanal]): integer;
begin
 // Traitement puis on traite le resultat si different de 0 alors on appel la même fonction.

  if Result <> 0 then
     Result := DAQmxStopTask(TaskHandleAI[nDevice,nCanal]);
end;

Bonne Prog,

Olivier

PS : Lorsqu'une réponse vous convient, n'oubliez pas de la valider.

-->florenth ton doigt auarit-il déraper?
TMyFonction = fonction (Parametres): Integer;--TMyFonction = fUnction (Parametres): Integer;
@+
jlen

Oups .... vive le français !!!
Evidemment, il faut lire fUnction et non pas fOnction.
Merci de cette remarque jlen

Dérapé, mon doigt ... je ne crois pas. A moins que chez toi le ''u'' soit à côté du ''o'', mais ya le ''i''. Bref ...

Si tu ne te plantes pas ......
tu ne pousseras jamais

ah les faux amis!!
non mon clavier est tout à fait standard mais mes doigts apparament beaucoup moins:
aurait est devenu auarit!!!! ou je suis devenu dyslexique.


@+
jlen

Et :

Type  TmyProc = procedure(Sender: TObject) of object;

si tu souhaites passer des fonction/procédure de la Form genre

procedure TForm.MachinOnDblClick(Sender: TObject);


gnh !

@ DeltaFX: je suis d'accord pour le "of object" mais par contre, le Sender n'est pas un parametre obligatoire. Ca sert, d'accord, mais pas toujours donc on peut l'ommetre (et rajouter d'autres parametres evidemment) si on le souhaite.

@jlen100: je penche plus pour la première raison quoi qu'une dyslexie n'est pas forcément grave ...
Par contre, dans ton premier post, ce n'est pas déraper mais derapé, ... aïe aïe aïe !!!

++

Si tu ne te plantes pas ......
tu ne pousseras jamais

Beuh, en fait j'ai juste fait un copy-paste depuis un de mes prog. J'avais le "of object " en bleu...

gnh !

@DeltaFx : le type de procédure que tu déclares existe déjà nativement avec Delphi et se nomme TNotifyEvent , lol.

@Moldov : en gros, tu voudrais utiliser ce que l'on appelle des fonction callback (de rappel in French). Ce type de fonction est très fréquemment utilisé dans la programmation Windows et permet une grande souplesse en passant, en argument, une fonction plutôt qu'une autre. L'essentiel étant de déclarer le type de la fonction passée avant de l'utiliser. C'est un principe intangible en Pascal (à quelques rares exceptions près) et tu le sais déjà.

---

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.