[TStringList] Ajout impossible...

Salut tout le monde !

Je commence par poser mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

function listerVilles : TStringList; var tmpListe : TStringList; i : integer; tmp : string; begin tmpListe:=TStringList.Create; tmpListe.Clear; for i:=1 to 741 Do Begin tmp:=villes[i][1]; tmpListe.BeginUpdate; tmpListe.Add(tmp); tmpListe.EndUpdate; End; listerVilles:=tmpListe; tmpListe.Free; end;

---

Mon but est tout simple : la fonction "listerVille" doit se charger de renvoyer la liste des villes (constante villes de type array[1..741,1..3]).
Pour celà je créé une liste intermédiaire avec le constructeur "create", puis j'ajoute avec "add".

Le problème c'est que malgré mes appels à "add" la liste n'est pas alimentée. J'ai utilisé "begin" et "endupdate" pensant obtenir de meilleurs résultats mais rien...

Et ce problème vient uniquement de ma liste car quand je fait un appel à "showmessage" avec comme argument "villes[i][1]" j'obtiens bien quelque chose.

Alors ma question est : faut-il faire appel à une routine spéciale après avoir créé un tableau ? Ou alors est-ce que j'ai loupé quelque chose ? :?

Merci d'avance pour vos réponses, quelle qu'elle soit. :D

Leo

bonjour,
à vue de nez je dirais

Code:

---

tmp:=villes[i][1];

---

à remplacer par

Code:

---

tmp:=villes[i,1];

---

Bon courage !

Heu a vue de nez, tu alloues, puis tu dé-alloue une liste locale à la fonction, donc après la fonction... plus rien !

la solution, passer en parametre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure listerVilles( LVilles : TStringList ); begin LVilles.Clear; ... TON CODE end;     Autres part... var ListeVilles: tstringlist; begin ListeVilles := TStringList.Create; ListerVilles( ListeVilles ); // TON TRAITEMENT SUR LES VILLES ListeVille.Free; end

---

Tout comme a dit TicTacToe, avec en plus le fait que BeginUpdate et EndUpdate ne s'utilisent pas comme tu l'as fait : il faut appeler une fois BeginUpdate avant tous tes traitements (avant ta boucle) et une fois EndUpdate après :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure listerVilles(LVilles : TStrings); var i : integer; tmp : string; begin LVilles.BeginUpdate; LVilles.Clear; for i := 1 to 741 do LVilles.Append(villes[i][1]); LVilles.EndUpdate; end;

---

N.B. : J'ai utilisé TStrings au lieu de TStringList comme type de paramètre formel : cela ajoute de la flexibilité à ton code sans perdre une miette de puissance ;) :fleche: c'est une bonne habitude à prendre :)