Discussion :

[rvzip64]

Hello,

Je voudrais faire une fonction qui a plusieur type de sortie différent.
Et je ne sais pas comment faire.

Exemple:

Code :

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

1
2
3
 
  function Affiche:String;
  function Affiche:integer;

Je ne sais pas si je suis trés clair.

Cordialement.

[portu]

Code :

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

1
2
3
4
5
6
7
8
9
 
function Diviser(X, Y: Real): Real; overload;
begin
  Result := X/Y;
end;
function Diviser(X, Y: Integer): Integer; overload;
begin
  Result := X div Y;
end;

[LadyWasky]

Salut, bien sur que c'est possible, toutefois :
- Tes fonctions doivent avoir le même nom (pour ça, pas de problêmes)
- Elles doivent impérativement se différencier par le nombre ou le type de paramètres quelles acceptent.
- pour les déclarer, il faut rajouter le mot réservé overload

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
interface
type 
  ...
  function Affiche(UneChaine:string) :String; overload;
  function Affiche(UnEntier:integer):integer; overload;
...
implementation
...
function Affiche(UneChaine:string) :String;
begin
  ShowMessage(UneChaine);
end; 
 
function Affiche(UnEntier:integer):integer;
begin
  ShowMessage(InttoStr(UnEntier));
end;
...

[Rayek]

peut être simplement en retournant un variant

Code :

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

1
2
 
function Diviser(X, Y: Real): Variant;

[rvzip64]

sachant que j aurais toujours le meme nombre de param_tre et qu ils seront toujours de meme type, il vaut mieux utilisé la surcharge ou le variant ?

[Cl@udius]

Salut,

La réponse à ta question est dans les propos de Waskol ci-dessus qui a été clair là-dessus.

Si tu as toujours le même nombre de paramètres et toujours du même type, alors utilise un variant en valeur de retour.

@+

[djo.mos]

Le Variant. Et c'est la seule façon avec des fonctions. L'autre solution serait d'utiliser une procedure et de passer le resultat comme paramètre precédé par un var

[rvzip64]

ok merci a tous