Discussion :

[prgasp77]

Bonjour,
Je suis en train de développer un éditeur qui nécessite la création dynamique de TImage. Mais ma ligne créant ces TImages provoque une erreur 9 fois sur 10 (Violation d'acces aux adresse assez spécifiques comme 000000, FFFFDC, 000008EA). Voici la ligne en question :

Code :

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

1
2
3
4
5
6
7
arr_img_Items[i] := TImage.Create(MainForm.GroupBox1);
{
i est un integer tel que i < Length(arr_img_Items)
arr_img_Items est comme son nom l'indique un array of TImage
MainForm est de type TMainForm, classe dérivée de TForm
GroupBox1 est un TGroupBox de MainForm
}

Pouvez vous m'aider à identifier la cause de ce problème ? Merci de votre aide.

Titre modifié.
Merci de lire les règles du forum.

[Pierre Castelain]

Pourquoi utilise-tu un TGroupBox comme owner du TImage ?
Est-tu sur de la taille de ton tableau et de ses indices ?

[prgasp77]

Si j'utilise un TGroupBox comme Owner, c'est pour des questions de pratique (le TImag est apparait dans un TGroupBox et cela simplifie la lecture des coordonnées de la sourie que j'utilise).

Oui, je suis sûr de mon tableau. Avant d'ajouter un élément, je fais un SetLength. J'ai suivi ma procedure pas à pas et ce n'était apparemment pas le problème.

Voulez-vous plus de code ?

[Pierre Castelain]

Je ne vois pas ce qui peut clocher. Il te faudrait déterminer ce qui plante exactement : la création du TImage ou l'affectation. Pour cela, je ne vois qu'une solution : séparer les deux opérations :

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  tmp: TImage;
begin
...
  tmp:= TImage.Create(MainForm.GroupBox1);
  arr_img_Items[i]:= tmp;
...
end;

Et si ton programme plante de manière aléatoire, ajoute des traces autour de chaque opération pour déterminer celle qui pose problème.

[Paul Atreide]

Si la solution de Pierre Castelain ne t'aide pas, essaye aussi de changer le AOwner de tes Timage (en mettant, par exemple, MainForm). Y pourrais y avoir un problème d'incompatibilité (même si je ne vois pas pourquoi)...

[JustMe]

Quelle est la porté de ton tableau?
Je suis avec l'idée de mettre comme propriétaire la Forme et pour parent le GroupBox.
Un autre bout de code va permettre une aide remarcable.

[prgasp77]

Le problème n'est pas l'affectation, mais bien la création ; et cela quel que soit le propriétaire. Mon tableau est bien une variable globale.

Voici l'ensemble de ma procédure bien documentée :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
procedure AfficherLesItems;
var
  i: Integer;
  dbl_rapport: Double;
  Bitmap: TBitmap;
 
begin
  // On efface tous les items pour les recoustruire :
  For i:=0 to Length(arr_img_Items)-1 do
    arr_img_Items[i].Destroy;
  SetLength(arr_img_Items, 0);
  For i:=0 to Length(Map.MapElements)-1 do // Map.MapElements : array of PTMapElement ;
                                              PTMapElement = ^TMapElement ;
                                              TMapElement = record
                                                    Top: Integer;
                                                    Left: Integer;
                                                    Item: Integer;
                                               end;
  begin
    if not ( Map.MapElements[i] = nil ) then
    begin
      // On charge le bitmap de l'item sélectionné :
      Bitmap := TBitmap.Create;
      Bitmap.LoadFromFile(Items[Map.MapElements[i]^.Item].Icon);
      dbl_rapport := Min( Items[Map.MapElements[i]^.Item].Properties[1]/Bitmap.Width, Items[Map.MapElements[i]^.Item].Properties[0]/Bitmap.Height );
      // On crée le TImage qui l'affichera :
      SetLength(arr_img_Items, Length(arr_img_Items)+2);
      arr_img_Items[i] := TImage.Create(MainForm);
      with arr_img_Items[i] do
      begin
        Parent := MainForm.GroupBox1;
        Top := Map.MapElements[i]^.Top;
        Left := Map.MapElements[i]^.Left;
        Height := Items[Map.MapElements[i]^.Item].Properties[0];
        Width := Items[Map.MapElements[i]^.Item].Properties[1];
        OnMouseMove := MainForm.img_support.OnMouseMove;
        OnClick := MainForm.img_support.OnClick;
      end;
      // On redimensionne le bitmap et on l'addecte au TImage créé :
      BITMAP_REDIMENSIONAR(Bitmap, arr_img_Items[i].Picture.Bitmap, dbl_rapport*RapportDAgrandissementDeLaMap, True);
    end;
  end;
end;

Je ne comprends pas d'ou peut venir le probleme ...

[Sub0]

Salut!

2 choses:

Code :

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

SetLength(arr_img_Items, 0);

Il faut toujours ajouter 1 au nombre donné à SetLength:

Code :

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

SetLength(arr_img_Items, number + 1); // number >= 0

Il faut définir la propriété Name de chaque image.

à+

[Pierre Castelain]

Tu es sur de ne pas avoir de valeur à nil dans Map.MapElements ? Cela pourrait expliquer ton problème : tu accède à arr_img_Items en utilisant i qui est basé sur le nombre d'éléments de Map.MapElements. Si les premiers éléménts sont à nil, tu vas accéder au tableau avec un indice plus grand que le dernier élément.

[Sub0]

Pierre a raison!
Lorsque je dois accèder à tous les éléments d'un tableau dynamique, j'utilise Low et High :

Code :

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

For i := Low(mytab) To High(mytab) Do...

Ainsi, je suis sûr de ne jamais dépasser les limites du tableau.

De plus, il faut contrôler que l'élément a bien été créé avant d'agir :

Code :

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

1
2
For i := Low(mytab) To High(mytab) Do
  If (mytab[i] <> Nil) Then...

Mais ça je pense que tu l'avais déjà compris!

Code :

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

 if not ( Map.MapElements[i] = nil ) then

[prgasp77]

J'ai modifier les lignes for i:=0 to Length(array)-1 en for i:=low(array) to high(array) et ca m'a l'air de fonctionner. Je vous remerci de votre aide.