请看一下如下代码为什么不成功，谢谢！

Question

list:Tobjectlist;procedure TForm1.Button2Click(Sender: TObject);
var
  strFileNameExt: String;
begin
  list.Clear;
  if FindFirst(Edit1.Text + '\*.*', faAnyFile, sr)=0 then
  begin
    repeat
    if (sr.Attr and faDirectory) <> faDirectory then
    begin
        strFileNameExt := LowerCase(ExtractFileExt(sr.Name));
        if (strFileNameExt = '.jpeg') or (strFileNameExt = '.jpg') then
        begin
          Image1.Picture.LoadFromFile(Edit1.Text+'\'+sr.Name);
          list.add(Image1.Picture);
        end;
    end;
    until
    FindNext(sr) <> 0;
  end;
  Image1.Picture.Assign(tpersistent(list.Items[0]));
  Image1.Refresh;
end;图像为什么显示不出来呀？

Answer 1

没事呀， 图像显示出来，我的代码如下：
USES
  contnrs,jpeg;procedure TForm1.Button1Click(Sender: TObject);
var
  SR : TSearchRec;
  strFileNameExt: String;
  list:Tobjectlist;
begin
  list := Tobjectlist.Create;
  Try
    list.Clear;
    if FindFirst(Edit1.Text + '\*.*', faAnyFile, sr)=0 then
    begin
      repeat
      if (sr.Attr and faDirectory) <> faDirectory then
      begin
          strFileNameExt := LowerCase(ExtractFileExt(sr.Name));
          if (strFileNameExt = '.jpeg') or (strFileNameExt = '.jpg') then
          begin
            Image1.Picture.LoadFromFile(Edit1.Text+'\'+sr.Name);
            list.add(Image1.Picture);
          end;
      end;
      until
      FindNext(sr) <> 0;
    end;
    Image1.Picture.Assign(tpersistent(list.Items[0]));
    Image1.Refresh;
  Finally
//    List.Free;
  end;
end;

Answer 2

试试这样改：
list:Tobjectlist;procedure TForm1.Button2Click(Sender: TObject);
var
  strFileNameExt: String;
  tp: TPicture;       //<-加
begin
  list.Clear;
  if FindFirst(Edit1.Text + '\*.*', faAnyFile, sr)=0 then
  begin
    repeat
    if (sr.Attr and faDirectory) <> faDirectory then
    begin
        strFileNameExt := LowerCase(ExtractFileExt(sr.Name));
        if (strFileNameExt = '.jpeg') or (strFileNameExt = '.jpg') then
        begin
          tp := TPicture.Create;                      //<-加
          tp.LoadFromFile(Edit1.Text+'\'+sr.Name);    //<-改
          list.add(tp);                               //<-改
        end;
    end;
    until
    FindNext(sr) <> 0;
  end;
  Image1.Picture.Assign(tpersistent(list.Items[0]));
  Image1.Refresh;
end;

Answer 3

jpg不转化成bmp图象不能在image上显示的。即使装入成功也不会显示，把jpg图象先转化成bmp图象在说/

Answer 4

我的JPG直接显示在Image上,而且可以不用区分是JPG还是BMP