Delphi 如何确定图片是否包含Jpeg?

Delphi 如何确定图片是否包含Jpeg?,delphi,image,Delphi,Image,我使用的是delphi7/2009。如何确定图片的内容?jpeg bmp png等 if (APicture.Graphic is TBitmap) then result := true else result := false; //替换TBitmap,使其成为其他格式// if Picture.Graphic is TJPegImage then ShowMessage('JPEG') else if Picture.Graphic is TBitmap the

我使用的是delphi7/2009。如何确定图片的内容?jpeg bmp png等

if (APicture.Graphic is TBitmap) then
result := true 
else 
result := false;
//替换TBitmap,使其成为其他格式//

   if Picture.Graphic is TJPegImage then
     ShowMessage('JPEG')
   else if Picture.Graphic is TBitmap then
     ShowMessage('Bitmap');
//etc