Discussion :

[Bleys]

Bonjour

Alors là je sais pas si c'est parce que j'ai une idée en tête et que mon bracage m'empêche de trouver l'erreur mais un coup de main ne serait pas de refus.
J'ai le code suivant :

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
 
procedure TfEquipment.FormDestroy(Sender: TObject);
var
  I: Integer;
  J: Integer;
  gbChild : TGroupBox;
begin
for I := 0 to gbEquipment.ControlCount-1 do
  if (gbEquipment.Controls[I] is TGroupBox) then
     Begin
        gbChild:=gbEquipment.Controls[I] as TGroupBox;
        for J := 0 to (gbChild.ControlCount - 1) do
          If (gbChild.Controls[J] is TImage) then
           (gbChild.Controls[J] as TImage).Free;
     end;
end;

Le problème (indice Hors Limite) se produit lorsque J=24 à la ligne If (gbChild.Controls[J] is TImage). Il n'y a pourtant pas de possibilité pour que cette indice soit hors limite ... enfin autant que je sache sinon reprenez moi de suite et expliquez moi tout.


Là je ne comprends pas, j'ai beau tourner et retourner ???

Merci de votre aide

[Eric Boisvert]

Imagine que tu a 3 enfants...
tu boucle de 0 à 2
1 er coup tu efface le 0....
il ne reste plus que 0 à 1
2 eme coup tu efface le 1
il ne reste que 0 à 0
3 eme coup tu efface le 2 --> indice hors limite...


alors pour eviter le problème,
effectue tes boucles en sens inverse...

for J := (gbChild.ControlCount - 1) downto 0 do

[Bleys]

D'accord !!!

Je n'avais pas du tout pensé à ça mais il est vrai que ça change tout ...


Merci beaucoup pour ta réponse rapide, claire et complète

A très vite