Discussion :

[benymypony]

Bonsoir tout le monde,

Je cherche à faire un truc tout bête.

J'ai une boucle qui effectue une action pour chaque Item d'un ListBox. Jusqu'à là, pas de problèmes.
Mais je souhaiterais que toute les 5 actions (donc tous les 5 Items), une autre action soit effectuée (imaginons un simple ShowMessage).

Le contenu du ListBox est dynamique (et peut contenir 2 Items comme 200 Items).

Code :

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

1
2
3
4
for i := 0 to Form1.ListBox1.Items.Count - 1 do 
begin
 // Code
end;

Quelqu'un aurait-il une petite idée ?

Merci par avance !

Beny

[Paul TOTH]

solution simple

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
 
var
  i,j: Integer;
begin
  j := 1;
  for i := 0 to ... do
  begin
    Inc(j);
    if j = 5 then
    begin
      ...
      j := 1;
    end;
  end;
end;

solution plus "évoluée" if (i mod 5) = 4...

[benymypony]

Merci Paul !
Effectivement c'est tout bête.

Ça ne me serait même pas venu à l'idée...
Un simple Integer interne à la boucle, qui gagne +1 à chaque tour et qui, une fois atteint 5, effectue une action et remet à zéro l'Integer (...).

Merci encore

Beny