Discussion :

[T-B]

Bonjour,

question bête une fonction peut elle retourner un tableau, car la syntax que j'utilise delphi n'aime pas trop

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function test : array of string;
 
implementation
 
Function Tform1.test : array of string;
var tab : array[1..2] of string;
begin
  tab[1] := 'a';
  tab[2] := 'b';
  result tab;
end;

Voila l'erreur que j'ai a la compilation

[Erreur] unit4.pas(13): Identificateur attendu(e) mais 'ARRAY' trouvé(e)

qui correspond à cette ligne - Function test : array of string;

merci de votre aide

[tourlourou]

Code :

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

1
2
3
4
5
6
Function Tform1.test : array of string; 
begin 
 SetLength(Result, 2); // tableau dynamique => lui fixer une taille
  Result[0] := 'a'; 
  Result[1] := 'b'; 
end;

si tu connais la taille du tableau, déclare

Code :

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

function test: array[1..3] of string;

ou utilise un type qui gère les choses pour toi :

Code :

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

function test: TStringList;

[T-B]

J'ai toujours la même erreur à la ligne

- Function test : array of string;

je mette array[1..2] of string;
ou
array of string;

[Erreur] unit4.pas(13): Identificateur attendu(e) mais 'ARRAY' trouvé(e)

[/quote]

[sjrd]

Tu dois déclarer un type tableau à renvoyer par ta procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
type
  TStrArray = array of string;
 
...
 
function test : TStrArray;
begin
  SetLength(Result, 2);
  Result[0] := 'a';
  Result[1] := 'b';
end;

[T-B]

meci ça marche

[sjrd]

meci ça marche

Un 'tit alors ?