Discussion :

[sgmsg]

Bonjour à tous

J'ai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[sgmsg]

Simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
type tProcedure=procedure of object;
type oProcedure=class
Private
...
Public
    constructor create(UneProcedure:tProcedure);
...