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:
Si ca compile et que mon code est bon (lol), cette exemple deverait afficher dans le memo: 2 - 3 - 4
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;
Partager