Discussion :

[ClearAlgo]

Bonjour,

J'ai ce code là qui ne veut pas compiler et je ne sais pas pourquoi il me fait un:

Types Incompatibles

Code :

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

1
2
3
4
procedure TBDD.remplir_tableau_avancement(p_tableau: array of string);
begin
  SetLength(p_tableau,4);
end;

Par contre le code suivant compile

Code :

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

1
2
3
4
5
6
procedure TBDD.remplir_tableau_avancement;
var
p_tableau: array of string;
begin
  SetLength(p_tableau,4);
end;

Quel est le problème dans le premier cas? J'y perds mon latin.

Merci pour vos réponses

[tourlourou]

Code :

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

1
2
3
4
5
6
7
type 
  Tp_tableau: array of string;
 
procedure TBDD.remplir_tableau_avancement(p_tableau: Tp_tableau);
begin
  SetLength(p_tableau,4);
end;

devrait résoudre le problème.

[Andnotor]

Le premier code n'est pas un tableau dynamique, mais un tableau ouvert

[ClearAlgo]

Je vous remercie, tourlourou, Paul Toth, et Andnotor, je comprends maintenant que j'ai confondu les tableaux ouverts et dynamiques!

Merci à tous

[ShaiLeTroll]

C'est un piège classique !

Paramètres (Delphi) - Paramètres tableau, tu as un article similaire dans le HLP

A Vérifier dans ton D5, si tu as l'unité types, tu as quelques types de tableaux prédéfinis dont TStringDynArray

[Paul TOTH]

dans le premier cas c'est un tableau "ouvert", dans le second cas un tableau "dynamique"...oui je sais ils sont déclarés de la même façon, mais dans le premier cas c'est un type de paramètre alors que dans le second c'est un type de variable, là est toute la nuance

Code :

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

1
2
3
4
5
6
7
8
 
type
  TArrayOfString = array of string; // tableau dynamique
 
procedure TBDD.remplir_tableau_avancement(var p_tableau: TArrayOfString);
begin
  SetLength(p_tableau,4);
end;

j'ai ajouté également "var" car je suppose que tu veux un paramètre par adresse et non par valeur.