Discussion :

[zarbouine]

salut,

Si je fais une fonction qui calcule 4 valeurs entières, comment je peux récupérer les valeurs en question ? Un tableau ? mais une fonction peut-elle retourner un tableau ?
Vous feriez comment ?

[ShaiLeTroll]

je ne crois pas pour le tableau en result
mais tu peux passer un param out un "array of integer"
et dans le code de la fonction tu fais le SetLength();

sinon tu fais une structure (record) avec 4 entiers, et ça peut être en result de fonction ça

[Haywire]

Oui une fonction peut tout à fait renvoyer un tableau comme résultat.

Pour le prouver voici ce que j'ai fais dans un des mes programmes:

Code :

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

1
2
3
4
5
6
 
type TPoint = (x,y);
     TCoord = array[TPoint] of byte;
 
function getTete(quelque chose) : TCoord;
function getQueue(quelque chose) : TCoord;

Et ensuite pour utiliser le résultat:

Code :

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

1
2
3
4
5
6
7
8
 
var machin: TCoord;
   abscisse : byte;
   ordonnée : byte;
...
machin := getTete(truc);
abscisse := machin[x];
ordonnée := machin[y];

[sjrd]

Maintenant, si tes variables sont de même type et de même logique, ça va. Mais si ce n'est pas le cas, préfères quatre paramètres out

Code :

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

1
2
3
4
5
6
7
procedure DoSomething(out Result1, Result2, Result3, Result4 : integer);
begin
  Result1 := 1;
  Result2 := 1;
  Result3 := Result1 + Result2;
  Result4 := Result2 + Result3;
end;