TImage exception retournée

Bonjour

Ce code retourne une exception j'ignore pourquoi .

Code:

---

1 2 3 4 5

//Image1 : est composant Timage   Image1.Picture.Bitmap := nil ; if Image1.Picture.Graphic.empty then showmessage('Vide');

---

Merci

Dans un picture, les différents objets Graphic, Bitmap, ... sont plus ou moins liés ...

Le Message d'erreur aurait pu aidé, il doit existé des centaines d'exceptions, partont sur la violation d'accès ...

il serait nécessaire de vérifier si les objets sont initialisés ...

Code:

---

1 2 3

if Assigned(Image1.Picture.Graphic) then if Image1.Picture.Graphic.empty then showmessage('Vide');

---

Merci

l'erreur provient de ce code

Code:

---

Image1.Picture.Bitmap := nil ;

---

ce ci résout le problème

Code:

---

1 2 3 4 5 6

if Image1.Picture.Graphic.empty then begin showmessage('Vide');   else image1.Picture.Graphic.Assign(nil);

---