Pb TStringList

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.

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

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

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

merci à toi. Tout marche comme je le voulais.

A +.

Tony

Et si tu gagnes au LOTO avec ton programme, ne nous oublie pas...

Merci d'avance (lol)