如何确定Tpicture是否包含Jpeg？

Question

我正在使用delphi7 / 2009。如何确定Tpicture的内容？ jpeg bmp png等？

Answer 1

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

Answer 2

if (APicture.Graphic is TBitmap) then
result := true 
else 
result := false;

//替换TBitmap使其成为其他格式//