Discussion :

[Leoxp]

Salut tout le monde !

Je commence par poser mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

Leo

[Manopower]

bonjour,
à vue de nez je dirais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 tmp:=villes[i][1];

à remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 tmp:=villes[i,1];

Bon courage !

[TicTacToe]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sjrd]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 c'est une bonne habitude à prendre