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