Discussion :

[wikimeta]

bonjour à tous,

certain vont peut-etre m'en vouloir mais je n'arrive pas à modifier l'incrementation dans une boucle.

je cherche à faire un controle sur une TStringlist. Les valeur des ligne impairs ne doivent pas contenir de doublons et des ligne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
     for i := 0 to TStrinlist.Count-2 do
       begin
  for j :=i+2 to TStrinlist.Count do
  begin
    if TStrinlist.Strings[i] = TStrinlist.Strings[j] then
      raise Exception.Create('Le fichier "TStrinlist" contient plusieur fois le même code')
    else
      j:= j+1;
  end;
  i := i+1;
       end;

je cherche à incrementer des 2 i et j mais j'ai les messages d'erreur suivant:

[Erreur] U_Principale_Import.pas(94): Affectation à variable de boucle FOR 'j'
[Erreur] U_Principale_Import.pas(96): Affectation à variable de boucle FOR 'i'

je pense comprendre que je ne peut utiliser i et j car ils sont verouillés

quelqu'un aurait une solution?

PS : j'ai cherché dans la faq
[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]

[Bejaia-In]

certain vont peut-etre m'en vouloir

pas beaucoup...

je pense comprendre que je ne peut utiliser i et j car ils sont verouillés

...puisque tu as compris le systeme.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
      for i := 0 to TStrinlist.Count-2 do
       begin
         for j :=i+2 to TStrinlist.Count do
           begin
             if TStrinlist.Strings[i] = TStrinlist.Strings[j] then
               raise Exception.Create('Le fichier "TStrinlist" contient plusieur fois le même code');
             //else
              // j:= j+1; a supprimer
 
           end;
       //i := i+1; a supprimer
       end;

[wikimeta]

y'a de l'idée dans la réponse mais c'est pas vraiment ca (heureusement parce que sinon c'est moi qui m'en serait voulu)

en fait les boucles incrementent naturellement de 1 et je voudrais qu'elles incrementent de 2, c'est pour ca que j'ai voulu forcer l'incrementation de i et j
et j'ai les messages d'erreurs...

je suis sur qu'il existe une solution relativement simple mais je n'arrive pas à mettre le doigt dessus

merci pour ton aide

[Jipété]

Ben j'ai jamais trouvé.
J'ai ça qui fonctionne (c'est pas beau, hein !) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var i: integer; r: real;
begin
  memo1.Clear;
  r := 0;
  for i := 0 to 5 do begin
    r := i;
    if IntToStr(i div 2) <> FloatToStr(r / 2) then continue;
    memo1.Lines.Add(inttostr(i));
  end;
end;

Mes 2 cts,
--
jp

[qi130]

Pour avoir la main sur ces compteurs, tu peux utiliser soit une boucle repeat...until, soit un boucle while.

Il faut dans les 2 cas correctement initialiser le compteur qui sera la condition de sortie de la boucle (sous peine de ne pas y rentrer pour un while) et bien l'incrémenter sous peine de ne pas en sortir.

[e-ric]

Tu peux itérer par pas de 2 :

Code :

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

1
2
3
 
For i := 0 to StringList.Count-1 step 2 do
...

Attention tu ne dois pas dépasser Count-1 comme indice de ta liste de chaîne :

Code :

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

1
2
3
4
5
6
 
   for i := 0 to TStrinlist.Count-3  step 2 do
       begin
         for j :=i+2 to TStrinlist.Count-1  step 2 do
           begin
...

cela devrait sonner plus juste.

cdlt

e-ric

[Cl@udius]

Salut !

@E-ric: step ???

Ca me rappelle le bon vieux basic , mais en pascal point de step.

Mais de toute façon qi130 a donné la solution le while ou repeat c'est le seul moyen de controler l'incrémentation des tes variables.

@+ Claudius.

[thewho]

Bonjour,

Le moindre coup d'oeil sur un cours/bouquin/tuto de pascal ou delphi t'aurait donné la réponse, et t'aurait évité de tenter ce que tu as essayé de faire.

En l'occurrence, la réponse a déjà été donnée par qi130.

[wikimeta]

merci qi130 et les autres.
thewho on peut avoir des faiblesses

voici donc LE code qui fonctionne comme je voulais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
      while i < TSringlist.Count-2 do
        begin
          j:= i+2;
          while j <= TSringlist.Count-2 do
            begin
              if TSringlist.Strings[i] = TSringlist.Strings[j] then
                raise Exception.Create('Le fichier TSringlist contient plusieurs fois le même code de départ : ' + TSringlist.Strings[i]);
              j := j+2;
            end;
          i := i+2;
        end;

en tous cas merci de m'avoir répondu et réorienté
bon dev à tous