Question

DELPHI 7中image不显示图片。。。。。

procedure TForm1.FileListBox1Change(Sender: TObject);
var wen_jian:string[4];
begin
wen_jian := ANSIupperCase(ExtractfileExt(filelistbox1.FileName));
if (wen_jian='.bmp') or (wen_jian='.jpg') or (wen_jian='.ICO')
or (wen_jian='WMF') or (wen_jian='emf') then
image1.Picture.LoadFromFile(filelistbox1.FileName);
if (image1.Picture.Width > image1.Width) or (image1.Picture.Height >
image1.Height)then
image1.Stretch:=true
else
image1.Stretch:=false;
//程序运行时BMP格式和JPG都显示不了，只能显示ICO图标格式的。
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FileCtrl, StdCtrls, ExtCtrls, jpeg;

//USES部分有JPEG。

Answer 1

uses

里面加上 jpeg

否则jpg图片是不会显示的。

追问

不对啊，DELPHI 7自动添加了JPEG的啊，下面是首部代码：
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FileCtrl, StdCtrls, ExtCtrls, jpeg;

追答

跟踪一下

加个showmessage(wen_jian );
看看wen_jian 里面的内容，可能是大小写的问题

比如 .BMP
你的判断是 .bmp
所以不显示