Discussion :

[madmohamed]

comment faire pour une fonction retourne deux resultats

[Basile le disciple]

bonjour à tous,

soit tu utilises un record :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
TResultat = record
 x,y : integer
end;
 
function Mafonction(x : integer) : TResultat;
begin
  result.x:=x*2;
  result.y:=x div 2;
end;

ou tu utilise le mot clé var :

Code :

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

1
2
3
4
5
6
 
procedure MaFonction(x : integer;var a,b : integer);
begin
  a:=x*2;
  b:=x div 2;
end;

à utiliser de cette façon :

Code :

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

1
2
3
4
5
 
var c,d : integer;
Mafonction(4,c,d);
c-->8
d-->2

[Gilbert Geyer]

Bonjour,

Code :

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

function(Parametre1 : TypeDuParametre; Parametre2 : TypeDuParametre2; etc var Resultat1 : Type du Resultat1) : Type du Résultat2;

Exemple:

Code :

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

1
2
3
4
function SommeEtProduit(a,b : integer; var Somme : integer) : integer;
begin
  Somme := a + b; Result := a* b;
end;

Appel :

Code :

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

1
2
3
4
5
6
 dans BoutonClick()
var Somme, Produit : integer;
begin
  Produit := SommeEtProduit(12,15, Somme);
  ShowMessage('P = ' + IntToStr(Produit) + ' S = ' + IntToStr(Somme);
end;

A+.

[GoustiFruit]

Ou une fonction qui renvoie du JSON :-p