急！急！急！如何提高图形数据的检索速度？

Question

bmp文件速度本身太大，存取起来太慢，你可以换一种文件格式！
如果想显示jpg格式文件，可以首先将jpg转换为Image格式，看下面例子：
var
sBmp:TImage;
dJpg:TJpegImage;
begin
    sBmp:=TImage.Create(self);
    dJpg:=TJpegImage.Create;
    dJpg.LoadFromFile('e:\setup.bmp');
    sBmp.Assign(dJpg);    dJpg.Free;
    sBmp.Free;
end;

Answer 1

sorry,dJpg.LoadFromFile('e:\setup.bmp');应该是一个jpg文件！

Answer 2

不好意思，我随手写的，刚才试了一下，有点问题，我又重新写了点带码：
procedure TForm1.Button3Click(Sender: TObject);
var
sBmp:TImage;
dJpg:TJpegImage;
begin
    sBmp:=TImage.Create(self);
    dJpg:=TJpegImage.Create;
    dJpg.LoadFromFile('e:\aaa.jpg');
    sBmp.Picture:=TPicture(dJpg);
    self.Image1.Picture:=sBmp.Picture;
    dJpg.Free;
    sBmp.Free;
end;