在 ImageList 加入大量圖檔的速度真是慢到不行 測試 160*120 加入 300 張影像要花 10 秒鐘 有無辦法提升呢?  http://ad.shanger.net/bean/imagelist.zip <-- 點這個 Link 下載測試程式

插花一下~~~ 在我的電腦建立160x120的300張只花2秒,建立1000張也只花10秒 =.=a

minjiu 兄的電腦比較猛吧... 呵呵

雪豆豆  你好

  試著將程式碼改成如下片段，也可像minjiu 兄的電腦一樣猛喔！
procedure TForm1.Button1Click(Sender: TObject);
var
  tBmp  :TBitmap;  //Thumbnail Bitmap
  i     :Integer;
  StartTime          : TDateTime;
begin
  StartTime := now();
  ImageList.Clear;  //清空 ImageList
  ImageList.Width := StrToInt(Ed_Width.Text);
  ImageList.Height := StrToInt(Ed_Height.Text);
  //一次配置足够空間
  ImageList.AllocBy := StrToInt(Ed_Count.Text) ; 
  for i := 0 to StrToInt(Ed_Count.Text)-1 do Begin
    tBmp := TBitmap.Create;  //
    with tBmp do begin
      Width := ImageList.Width;
    Height := ImageList.Height;
      Canvas.Brush.Color := clwhite;      //
      Canvas.FillRect(Rect（1,1,ImageList.Width,ImageList.Height));   //
    end;
    // 逐個Image使用取代的方式更新
    ImageList.Replace(i,tBmp,nil);
  End;      Label1.Caption := '共消秏 : '   diffTime(StartTime,now)   ' 時間';
end;
 

PS:我用PIII-550 512MRam 第一次增加300 顯示00秒(好快呀),再按一次時則顯示02秒(還要將300個bmp釋放掉,所以變慢了),若一次增加1000時則顯示09秒,應該够猛了吧。 _______________________________________ 深藍的魚，祝您好運..........連連

這個方式真的很快, 可以搭配Listview嗎? 我搭配 Listview,會掛掉 另外160*120 3000個大一點時,還會出現" 存放體空間不足,無法處理此命令" 請問要如合解決?

tBmp := TBitmap.Create; //將這行 往上移 就可以解決 記憶體不足的問題 for i := 0 to StrToInt(Ed_Count.Text)-1 do Begin with tBmp do begin Width := ImageList.Width; Height := ImageList.Height; Canvas.Brush.Color := clwhite; // Canvas.FillRect(Rect(1,1,ImageList.Width,ImageList.Height)); // end; ~未來仍漫長~

------
~未來仍漫長~