Pb TStringListRésolu

Question

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.

Merci d'avance.

cs_Loda · Accepted Answer

tu le pourra,

mais c'est

Nombre[0],
Nombre[1],
...,
Nombre[4].

jace1975 · Answer

ben tout simplement essaye :

  for i := 1 to 5 do
  begin
    Nombre.add(IntToStr(round(random(49) + 1)));
  end;
attention une list commence toujours à 0 et fini donc count-1

tschusss

cs_Loda · Answer

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

tony_73 · Answer

Oui j'y avais pensé mais je voudrais affecter 5 valeurs dans mon tableau de facon à ce que je puisse rapeler : 
Nombre[1], 
Nombre[2],
...

tony_73 · Answer

merci à toi. Tout marche comme je le voulais.


A +.


Tony

japee · Answer

Et si tu gagnes au LOTO avec ton programme, ne nous oublie pas... 


Merci d'avance (lol)

Pb TStringList

6 réponses

Votre réponse