begin process at 2010 03 20 03:21:01
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Delphi

 > 

Divers

 > 

Débutant(e)

 > 

Pb TStringList


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Pb TStringList

jeudi 24 août 2006 à 14:31:17 | Pb TStringList

tony_73

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.

jeudi 24 août 2006 à 14:36:02 | Re : Pb TStringList

jace1975

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
jeudi 24 août 2006 à 14:37:58 | Re : Pb TStringList

Loda

Membre Club
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, ...)
jeudi 24 août 2006 à 14:39:31 | Re : Pb TStringList

tony_73

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

jeudi 24 août 2006 à 14:41:44 | Re : Pb TStringList

Loda

Membre Club
Réponse acceptée !
tu le pourra,

mais c'est

Nombre[0],
Nombre[1],
...,
Nombre[4].

jeudi 24 août 2006 à 14:47:00 | Re : Pb TStringList

tony_73

merci à toi. Tout marche comme je le voulais.

A +.

Tony

jeudi 24 août 2006 à 15:26:39 | Re : Pb TStringList

japee

Membre Club Administrateur CodeS-SourceS
Et si tu gagnes au LOTO avec ton programme, ne nous oublie pas... dribble.gif

Merci d'avance (lol)  merci.gif



Cette discussion est classée dans : pb, nombre, erreur, begin, tstringlist


Répondre à ce message

Sujets en rapport avec ce message

Tri extensions de fichiers et PB savedial. [ par MickymX1 ] Kikoo tout le monde..J'ai fureter à travers le forum mais j'ai pas trouver de réponse alors me voilou:1- j'ai une liste de chemin source et de destina restoration de sauvegarde [ par stephanesvh ] salut a tous j'ai un soucis pour la restoration des données sauvegarder, quelqu'un peut m'aider ?? procedure TForm1.btnSaveEditsClick(Sender: TO Erreur E/S 123. [ par la_gavorade ] Bonjour à tous,J'aimerais avoir vos avis sur ce petit pb surement très bête mais chiant pour un amateur comme moi...Je développe des petits programmes TTreeView [ par MAsterC ] Bonjour !Je suis un peu débutant avec le composant TTreeView et dans mon programme j'ai fais une form "options" mais je veux l'avoir du meme style que .... TTreeView(2) [ par MAsterC ] Ok Merci ! Mais sa ne marche pas avec le "Selected" et avec le "Itemindex".Regarder ce code... :beginIf View.Items = 'Sons' then begin Form10.Tables.A Erreur d'une requete sur interbase [ par plante20100 ] Bonjour à tous Voila je voudrais faire une petite appli qui modifie une table interbase (créer une nouvelle colonne). voici mon code : procedure TFor erreur dll de fonction [ par saravana ] bonjour a tous j'essaye d'appeler une fonction avec une dll, mais j'ai une erreur estce que quelqun peut me dire si il ya des erreurs dans le source:l Erreur de type asynchrone [ par Francky23012301 ] Salut à tous,j'ai voulu faire un petit test de transfert de fichiers transfert client->serveur :La connection du client au serveur s'effectue correcte PB ajout Mails TStringList [ par trezeled ] Bonjour,J'essaie de developper un envoi de mail.Pour cela je n'arrive pas à ajouter les adresses de destination a la propriété ToAdress qui est un TSt Arborescence dans un Treeview [ par Francky23012301 ] Salut à tous, Ca fait bien longtemps que j'ai demandé de l'aide mais là je seche. J'ai un client FTp et je souhaite récupérer l'arborescende d'un se


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,250 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales