Discussion :

[Dereck07]

Bonjour, J'ai besoin de créer une fonction qui retourne un tableau.
N'y arrivant pas, j'ai fait un petit exemple basic mais qui me génère un message d'erreur a la compilation:

[Erreur] Unit1.pas(277): Identificateur attendu(e) mais 'ARRAY' trouvé(e)
[Erreur] Unit1.pas(290): Types incompatibles : 'Array' et 'Integer'
[Erreur fatale] Project1.dpr(5): Impossible de compiler l'unité utilisée 'Unit1.pas'


voici le code que j'utilise:

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
 
function giveT(v:integer):array of integer;
var
 t:Array[-1..1] of integer;
begin
 t[-1]:=v;
 t[0]:=v+1;
 t[1]:=v+2;
 result:=t;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  t1:Array[-1..1] of integer;
begin
  t1:=giveT(2);
  memo1.Lines.Add(inttostr(t1[-1])+' - '+inttostr(t1[0])+' - '+inttostr(t1[1]));
end;

Si ca compile et que mon code est bon (lol), cette exemple deverait afficher dans le memo: 2 - 3 - 4

[Pedro]

Merci de faire une recherche avant de poster: ce sujet a déjà été traité un nombre incalculable de fois...

[ShaiLeTroll]

Je dirais de regarder dans l'unités "Types" de Delphi ...

[Dereck07]

Merci ShaiLeTroll,
T'avais raison, il suffisait de remplacer 'array[-1..1] of integer' par le par un type.
Pedro pas obligé d'etre aussi
Si J'ai posté ce poste c'est parce que je n'y arrivais vraimant pas, même en regardant d'autres postes traitant du sujet. Maintenant que j'ai la reponse j'avoue c'etait simple.
Mais c'est toujours comme ca, c'est simple une fois que l'on a la réponse.

Sinon voici le code fini au cas ou un jour un débutant est le même probleme que moi:

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
19
20
 
type TIntArray = array[-1..1] of integer;
 
function giveT(v:integer):TIntArray ;
var
 t:TIntArray;
begin
 t[-1]:=v;
 t[0]:=v+1;
 t[1]:=v+2;
 result:=t;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  t1:TIntArray;
begin
  t1:=giveT(2);
  memo1.Lines.Add(inttostr(t1[-1])+' - '+inttostr(t1[0])+' - '+inttostr(t1[1]));
end;

Encor merci ShaiLeTroll

[Pedro]

Pedro pas obligé d'etre aussi

Pourtant: http://www.developpez.net/forums/sho...renvoi+tableau

Promis, la prochaine fois, j'ajouterais un smiley dans mon message