Discussion :

[Crafton]

Salut

Je cherche a crée une fonction dans une dll, cette fonction aurait des parametre optionnelle.
exemple :
function somme (var1:integer; var2:integer; var3:integer; var4:integer);
var1 et var2 etant obligatoire mais var3 et var4 non !

le programme appelant pourrait appellé
somme (1,2);
somme (1,2,3);
somme (1,2,3,4);

je pensais a declaré en fait plusieur fonction du meme nom mais avec un prototype different.

function somme (var1:integer; var2:integer);
function somme (var1:integer; var2:integer; var3:integer);
function somme (var1:integer; var2:integer; var3:integer; var4:integer);

Est ce possible en delphi ?

Merci d'avance...

[edit]
A priori je ne connais pas le language appelant, mais il est fort possible que cela depend bcp du langage appelant. Par exemple en specifiant des valeurs par defaut pour certain parametre.

[Pascal Jankowski]

Utilise la directive overload de la façon suivante :

Code :

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

1
2
3
4
type
  procedure somme(x: integer);overload;
  procedure somme(x,x1: integer);overload;

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure somme(x: integer);
begin
  // traitement
end;
 
procedure somme(x,x1: integer);
begin
  //traitement
end;

Pour les paramètres facultatifs, tu peux également procéder ainsi:

Code :

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

1
2
3
4
procedure somme1(x,x1: integer; x2 : integer = 0); 
//x2 vaudra 0 par défaut et il ne sera pas nécéssaire de le renseigner
//sinon il prendra la valeur qu'on lui passera

Tu peux à la fois appeler
somme1(5,7); //x2 vaudra 0 par défaut
ou
somme(5,7,11); //x2 vaudra 11 ici

Cordialement

[Crafton]

Merci grand gourou

J'essaie ca tout de suite

[Pascal Jankowski]

Soit pour répondre complètement à ton problème

Code :

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

1
2
3
4
5
6
7
8
9
10
11
type
  procedure somme(x,x1: integer; x2: integer = 0; x3: integer = 0);
 
implementation
 
 
procedure somme(x,x1: integer; x2 : integer = 0; x3: integer = 0);
begin
  //Traitement
end;

Cordialement