Mettre une constante dans un array

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

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

Code:

---

Array Of TMenuItem

---

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

Code:

---

1 2 3 4 5 6

var LArray : Array of byte; LNbTestMax: Integer; // Le nombre variable max du tableau begin SetLength(LArray, LNbTestMax); ...

---

Code:

---

1 2 3 4 5

const nb_max_test=1000; var test1 : Array [0..nb_max_test] Of TMenuItem;

---

Citation:

---

pourriez-vous m'expliquer comment la corriger ?

---

avec le message d'erreur ça serait plus simple :)

ok merci je vais tester de suite ta solution teubies :)

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

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

Code:

---

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:

---

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 ...

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 :P

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