Passer une fonction en paramètre.
Contenu du snippet
type
TOperation = function(const X, Y: Integer): Integer;
function Evaluer(const X,Y: Integer; const Fonction: TOperation): Integer;
begin
result := Fonction(X, Y);
end;
function Add(const A, B: Integer): Integer;
begin
result := A + B;
end;
function Mul(const A, B: Integer): Integer;
begin
result := A * B;
end;
procedure Exemple;
var X,Y,A,M : Integer;
begin
X := 11;
Y := 12;
A := Evaluer(X, Y, Add);
M := Evaluer(X, Y, Mul);
ShowMessage(Format('X= %d, Y= %d // Add= %d // Mul= %d',[X, Y, A, M]));
end;
Compatibilité : Delphi 5
A voir également
- Passer une fonction en paramètre.
- Remise en fonction - Forum C / C++ / C++.NET
- Fonction pow en c ✓ - Forum C
- Sub ou fonction non définie - Forum VB.NET
- Fonction arctan excel ✓ - Forum Visual Basic 6
- Calcul sur excel de l'inverse tangente en grade - Forum VBA Office (Excel, Word ...)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.