Discussion :

[molesqualeux]

Bonsoir ,

j'aimerais savoir comment faire pour qu'une fonction retourne un tableau ?

J'ai lu

function toto(x:type1;y:type2;...):type;

type est le type retourn´e par la fonction. En Turbo-Pascal on ne peut
retourner que des entiers ou des flottants (real). En Delphi on peut retourner des tableaux.


Ce n'est pas possible mais y a t il une astuce ? (sans utiliser des pointeurs comme en C)
En fait je realise le projet d'un camarade mais il n'a pas vu les pointeurs arf..

[larnicebafteur]

Ou alors on peut utiliser un tableau comme variable globale !

[molesqualeux]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
{types globale}
 
type tab8 = array [0..7] of real;
type tab4 = array [0..3] of real;
type tab2 = array [0..1] of real;
 
{variables globales}
var array8 : tab8;
var array2 : tab2;
var array4 : tab4;
 
 
function mafonction(parametre : type) : ......

Je mets quoi à la place des ....?

[M.Dlb]

Le nom du type. Mais attention TP7 ne permet pas de retourner des type qui ne sont pas standards. Dans ce cas, il faut passer, soit par des pointeurs (le mieux), soit par une variable locale.

[molesqualeux]

je vais utiliser une variable locale mais dans ce cas je suis toujours confronté au même souci je dois définir ce type! qui est sous forme tableau .

[denokan]

au lieu de faire une fonction qui construit et renvoie un tableau, tu fais une procédure qui modifie un tableau déjà existant, donc pas de type de retour, ou alors un booléen qui indique si la procédure se termine normalement

[diden138]

je crois pas que ca soit possible sans utilisation des pointeurs

[denokan]

exemple :

Code :

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

1
2
3
4
5
6
7
8
 
procedure RemplitTablo(var tablo : Array of Integer);
var
  i : Integer;
begin
  for i := 0 to High(tablo) do
    tablo[i] := Random(100);
end;

[molesqualeux]

merci