Remplacer un Int dans un For par un array of int : Possible ?

Version imprimable

Bonjour

Je me trouve à devoir imbriquer 12 boucles For et au final effectuer des opérations sur les items de 12 Tstringlist dont l index est la valeur de chacune de ces boucles...

Exemple limité à 3...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
for c1 := 0 to List[1].Count - 1 do
  begin
    for c2 := 0 to List[2].Count - 1 do
    begin
      for c3 := 0 to List[3].Count - 1 do
      begin
        inc(itemp);
 
        Grid.Cells[1, itemp] := List_Ligne[1][c1];
        procedure( List[1][c1]);
        Grid.Cells[2, itemp] := List_Ligne[2][c2];
        procedure(List[2][c2]);
        Grid.Cells[3, itemp] := List_Ligne[3][c3];
        procedure( List[3][c3]);
      end;
    end;
  end;

mon idee etait donc de modifier cela avec une boucle comme suit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
var c:array [1..12] of integer;
...
for c[1] := 0 to List[1].Count - 1 do
  begin
    for c[2] := 0 to List[2].Count - 1 do
    begin
      for c[3] := 0 to List[3].Count - 1 do
      begin
        for i:=1 to 3 do
        begin        
        Grid.Cells[i, itemp] := List_Ligne[i]c[i];
        procedure( List[i][c1]);
        end;
      end;
    end;
  end;

mais j ai un beau message d erreur m indiquant que c est un integer et non un array of integer que je dois utiliser dans les boucles...

donc ma question : y a t il un moyen de contourner cela ?

merci de vos conseils

stephane

22/01/2014, 11h54
peter27x

ton code est faux d'entrée de jeu :

Code:

for c[1] := 0 to List[1].Count - 1 do

Une boucle for est censée utiliser une variable pour parcourir des valeurs (celles d'un array par exemple), par exemple si la variable s'appelle i on écrira :

Code:

for i = ...

Effectivement i doit être de type integer;

Mais là tu utilises un tableau (des indices d'un tablaux pour être précis) contenant des valeurs en guise de variable censée parcourir des valeurs.

Je pense que tu dois revoir l'utilisation de la commende de boucle "FOR".

Citation:

Envoyé par peter27x

ton code est faux d'entrée de jeu :

Code:

for c[1] := 0 to List[1].Count - 1 do

Une boucle for est censée utiliser une variable pour parcourir des valeurs (celles d'un array par exemple), par exemple si la variable s'appelle i on écrira :

Code:

for i = ...

Effectivement i doit être de type integer;

Mais là tu utilises un tableau (des indices d'un tablaux pour être précis) contenant des valeurs en guise de variable censée parcourir des valeurs.

Je pense que tu dois revoir l'utilisation de la commende de boucle "FOR".

le compilateur ne l'accepte pas, mais c[1] est bien un Integer

il reste la possibilité d'utiliser des WHILE
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 var c: array[0..2] of Integer; begin FillChar(c, SizeOf(c), 0); while c[1] < 3 do begin while c[2] < 10 do begin ShowMessage(IntToStr(c[1] * 10 + c[2])); Inc(c[2]); end; Inc(c[1]); end; end;

Bien vu, Paul ! Simple, efficace, comme d'habitude (si je puis me permettre). :ccool:

L'exemple pour la procédure FillChar() est également utile en lui-même, mais ici ça ne convient pas, parce qu'il faut remettre les compteurs à zéro en cours de route.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 program While1; {$APPTYPE CONSOLE} var c: array[0..2] of Integer; begin //FillChar(c, SizeOf(c), 0); c[0] := 0; while c[0] <= 1 do begin c[1] := 0; while c[1] <= 2 do begin c[2] := 0; while c[2] <= 3 do begin WriteLn(c[0], ' - ', c[1], ' - ', c[2]); Inc(c[2]); end; Inc(c[1]); end; Inc(c[0]); end; Write('Appuyez sur la touche Entr'#130'e...'); ReadLn; end.
Mais enfin, on avait compris l'idée. ;)

Ça va si le nombre de listes est figé sinon avec une procédure récursive. Ici avec remplissage de la grille :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
procedure TForm1.Check;
var
  Row     :TStringList;
  Current :integer;
 
  //---------------------------------------------
  procedure DoCheck(aCol :integer);
  var
    i :integer;
 
  begin
    if List[aCol].Count > 0 then
      for i := 0 to List[aCol].Count -1 do
      begin
        Row[aCol] := List[aCol][i];
 
        if aCol = High(List) then
        begin
          Grid.Rows[Current].Assign(Row);
          inc(Current);
        end
        else DoCheck(aCol +1);
      end
 
    else DoCheck(aCol +1);
  end;
  //---------------------------------------------
 
begin
  Row := TStringList.Create;
 
  try
    Row.Text := StringOfChar(#13, Length(List));
    Current  := 0;
 
    DoCheck(0);
  finally
    Row.Free;
  end;
end;

22/01/2014, 20h56
sp2308

merci pour ces reponses

Je ne pense pas à utiliser While, à tort !

Je vais m y mettre...