incrementation de boucle for

Version imprimable

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:

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]

Citation:

certain vont peut-etre m'en vouloir

pas beaucoup...

Citation:

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

...puisque tu as compris le systeme.

Code:

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;

25/08/2006, 11h26
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

Une boucle style "for i := 0 to un_nombre step 2" ?

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

Code:

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

25/08/2006, 11h45
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.

Tu peux itérer par pas de 2 :
Code:

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:

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

25/08/2006, 12h48
Cl@udius

Salut !

@E-ric: step ???8O

Ca me rappelle le bon vieux basic :P , 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.
25/08/2006, 12h52
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.

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

voici donc LE code qui fonctionne comme je voulais :

Code:

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:D