Discussion :

[helmis]

Bonjour

Ce code retourne une exception j'ignore pourquoi .

Code :

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

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

Merci

[ShaiLeTroll]

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 :

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

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

[helmis]

Merci

l'erreur provient de ce code

Code :

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

Image1.Picture.Bitmap := nil ;

ce ci résout le problème

Code :

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

1
2
3
4
5
6
if Image1.Picture.Graphic.empty then
 begin
 showmessage('Vide');
 
 else
 image1.Picture.Graphic.Assign(nil);