Discussion :

[Shredder]

bonjour,

dans mon programme, j'ai déclaré ceci :

test1 : Array [0..1000] Of TMenuItem;

maintenant, le soucis, c'est que j'ai beaucoup de variables "test" avec un array de 0 a 1000

donc je voudrais savoir si il était possible de faire quelque chose dans ce genre :

test1 : Array [0..nb_max_test] Of TMenuItem;


j'ai mis une constante pour nb_max_test, mais j'ai une erreur

pourriez-vous m'expliquer comment la corriger ?

merci d'avance

[nostroyo]

En fait, il faut que tu déclares un tableau dynamique

Code :

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

Array Of TMenuItem

et dans ton Code tu fais un Setlength sur ton tableau :

Code :

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

1
2
3
4
5
6
var
  LArray : Array of byte;
    LNbTestMax: Integer; // Le nombre variable max du tableau
begin
  SetLength(LArray, LNbTestMax);
  ...

[Paul TOTH]

Code :

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

1
2
3
4
5
 
const
 nb_max_test=1000;
var
 test1  : Array [0..nb_max_test] Of  TMenuItem;

pourriez-vous m'expliquer comment la corriger ?

avec le message d'erreur ça serait plus simple

[Shredder]

ok merci je vais tester de suite ta solution teubies

sinon le message d'erreur est :
"constant expression expected"

[ShaiLeTroll]

le Code fourni par Paul Toth, devrait fonctionner ... attention il ne faut pas typer la constante !

Code :

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

1
2
3
4
5
const
 nb_max_test: Integer = 1000; // Erreur
 
const
 nb_max_test = 1000; // OK

tu peux aussi faire une énumération si tu veux "nommer" tes éléments

Code :

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

1
2
3
4
5
type 
  TEnumTruc = (etTest1, etTest2, ..., etTest1000); // ouais c'est TRES long ...
 
var
  test1  : Array [TEnumTruc] Of TMenuItem;

en fait, 1000 TMenuItem, ce me surprend, autant de menu, tes utilisateurs doivent être perdu ...


Enfin, si tu déclare une constante juste la borne des boucles for ou while, mieux vaut finalement parti sur l'utilisation de Low et High ...

[Shredder]

oula oui désolé, je n'avais pas vu que dans ce code la variable n'était pas typé !!
en effet j'avais mis integer au début

ok merci beaucoup, c'est exactement ce que je cherchais