大神们,帮忙看看是怎么回事

[阿 元]

procedure TForm1.Button2Click(Sender: TObject);

var

Jpeg:TJPEGImage; //TJPEGImage

Bitmap:TBitmap; //TBitmap对象

ExtendName:string; //用于保存文件的扩展名'.bmp'或'.jpg'

begin

ExtendName:=ExtractFileExt(opendialog1.FileName);

//得到当前正在显示的图像文件的扩展名

if ExtendName=' .bmp' then

begin

Jpeg:=TJPEGImage.;

end;

在创建TJPEGImage文件时出现错误,[Pascal Error] Unit1.pas(1): Unable to invoke Code Completion due to errors in source code

Jpeg:=TJPEGImage.Create;写不下去

[boylafong]

uses中加入jipeg单元 Tjpegimage.create;写不下去是什么意思？强制这样写编译下

[秋天之落叶]

把你的源码加载后写创建语句没问题啊，是否引用了jpeg单元？ 不过你的代码确实有问题，你这样打不开对话框，取不到正确的扩展名，应该增加一句： OpenDialog1.Execute;

[阿 元]

谢谢,USES中没有引用Jpeg