tony_73
Messages postés30Date d'inscriptionjeudi 29 septembre 2005StatutMembreDernière intervention23 décembre 2011
-
24 août 2006 à 14:31
japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 2021
-
24 août 2006 à 15:26
Bonjour,
Voila j'ai un message d'erreur "...indice de listes hors limites(1)...
voici mon code ou j'ai l'erreur :
procedure TForm1.ButtonGenererClick(Sender: TObject);
var
Etoile1,Etoile2 : string;
Nombre : TStringList;
i : integer;
begin
Nombre := TStringList.Create;
Randomize;
for i : = 1 to 5 do
begin
Nombre[i] := IntToStr(round(random(49) + 1));
end;
Pouvez m'aider car je ne vois pas pourquoi je dépasse mon tableau.
cs_Loda
Messages postés814Date d'inscriptionvendredi 3 novembre 2000StatutMembreDernière intervention30 juillet 20093 24 août 2006 à 14:37
salut,
quand tu crée un TStringList, il est vide!
et tu ne peux changer que les valeurs qui existe deja.
donc, pour ajouter des valeur utilise
Nombre.Add( 'test');
apres tu peux relire tes strings avec
for i := 0 to Nombre.Count-1 do
begin
showmessage(Nombre[i]);
end;
voilà.
Bon code,
PS: n'oublie pas que tout ce que tu crée avec Xxx.Create doit être détruit avec Xxx.Free quand tu n'en a plus besoin. (fin de la procedure, FormDestroy, ...)