如何確定Tpicture是否包含Jpeg？

Question

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

Answer 1

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

//替換TBitmap使其他格式//

Answer 2

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