Passer une procedure tform.UneProcedure; comme paramêtre d'une function
Bonjour à tous
J'ai ceci :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
....
procedure Beep1;
procedure Beep2;
procedure Beep3;
end; |
Comment déclarer une procédure ou une fonction permettant son appel comme suit:
Code:
1
2
3
4
5
6
7
|
function super(UneProcedureBeep:procedure):boolean;
begin
...
end;
...
A:=Super(Beep1,'Beep1'); |
Le but est d'entreposer la procédure dans un vecteur et de lui associer une étiquette permettant de l'appeler au besoin.
