Discussion :

[Papy214]

Hello

Quand on utilise un for..in , par exemple for "TPair<string, string>" in "TDicionnary<string, string>", est-ce qu'on peut savoir si on est sur le dernier élément de la boucle avant d'en sortir ?

Typiquement, je veux concaténer une chaîne et rajouter un caractère de fin à chaque tour de boucle mais pas sur le dernier élément.

[Andnotor]

Pas directement, mais il est toujours possible de faire une boucle for..to en utilisant ToArray.

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
var
  PairArray :TArray<TPair<string,string>>;
  Dico      :TDictionary<string,string>;
  i         :Integer;
 
begin
  Dico := TDictionary<string,string>.Create;
  Dico.Add('Key1', 'Value1');
  Dico.Add('Key2', 'Value2');
  Dico.Add('Key3', 'Value3');
 
  PairArray := Dico.ToArray;
 
  for i := 0 to high(PairArray) do
    Memo1.Lines.Add(PairArray[i].Key +' = ' +PairArray[i].Value);
 
  Dico.Free;
end;

Sinon, il est parfois plus simple et moins coûteux en temps (suivent le nombre d'élément) d'ajouter systématiquement le caractère de fin et de supprimer le dernier après la boucle

Code :

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

1
2
3
4
5
6
Text := '';
 
for Pair in Dico do
  Text := Text +Pair.Key +'=' +Pair.Value +';';
 
SetLength(Text, Length(Text) -1);

[Papy214]

Ma curiosité naturelle me poussait à chercher une solution simple du style
if IsLast(element) then ...
Mais si 'il faut passer par un tableau, je boucle directement sur chaque élément et ça va très bien. :-)

peut-être en passant par un while ... je vais regarder.

Merci

[Paul TOTH]

ce que je fais parfois

Code :

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

1
2
3
4
5
6
7
8
 
Text := '';
 Sep := '';
for Pair in Dico do
begin
  Text := Text + Sep + Pair.Key +'=' +Pair.Value;
  Sep := ';';
end;

[ShaiLeTroll]

Ce que je fais en général, j'utilise une TStringList puis CommaText, cela évite de se prendre la tête avec le dernier séparateur !
Et que fait CommaText, cela utilise la technique de Andnotor en retirant le dernier caractère, j'avais même fait une ReduceStr pour améliorer cela en D7 sans FastMM

Sinon TDictionnary possède Count et Items, pourquoi passer par un ToArray ?

Code :

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

1
2
3
4
5
6
7
for i := 0 to Dico.Count - 1 do
begin
  Text := Text + Dico.Keys[i] + '='+ Dico.Values[i];
 
  if i < Dico.Count - 1 then
    Text := Text + ';'
end;

ou alors, une variante un peu comme celle Paul en ajoutant le séparateur avant la donnée

Code :

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

1
2
3
4
5
6
if Count > 0 then
begin
  Text := Items[0];
  for i := 1 to Count - 1 do  
    Text := Text + "," + Items[i];
end;

En Delphi, ils ont simplifiés les iterators à l'extrème, en gros c'est juste un while,

Code :

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

1
2
3
4
5
6
7
 
var
  Iterator: TPairEnumerator;
begin
  Iterator = Dico.GetIterator();
  while Iterator.MoveNext() do
    Text := Text + Iterator.Curent.Key + '='+ Iterator.Curent.Value + ';'

Mais il manque par rapport au c++, une fonction comme map::end() qui donne le dernier élement !

Code c++ :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
  typedef std::map<String, String> TStringStringMap;
  TStringStringMap Dico;
 
  Dico["Key1"] = "Value1";
  Dico["Key2"] = "Value2";
  Dico["Key3"] = "Value3";
 
  for (TStringStringMap:const_iterator it = Dico.begin() ; it != Dico.end(); it++)
  {
     Text += it->first + ";" + it->second;
 
      if (it != Dico.end())
        Text += ";"
  }