listview中select all感觉非常慢。看tory‘s delphi page有个方法是提高delete的速度的，先讲viewstyle切换成vslist再操作，似乎提高了少许，但还是无法与资源管理器select all的速度相比，各位前辈不知有否经验赐教 發表人 - pcsoftdiy 於 2005/05/06 15:10:04

pcsoftdiy 您好：    我自己測試的結果 (五千筆資料)，無論是直接按鍵操作 (就像使用檔案總管的操作方式一樣)，或是在程式裡設定，都是在瞬間就完成了，可否請您說明一下您所謂的慢到底有多慢？如果可能的話，把您的作法貼上來，如果我確認我的方式比您的方式要快的話，那我就把我的做法提供出來供您參考，反之我就不獻醜了。 發表人 - RedSnow 於 2005/05/14 19:52:23

看看線上說明： Call BeginUpdate before making multiple changes to the list of items. When all changes are complete, call EndUpdate so that the changes can be reflected on screen. BeginUpdate and EndUpdate prevent excessive redraws and speed processing time when new items are added, deleted, or inserted. 所以你的CODE是不是沒加上這些方法！？ ListView.Items.BeginUpdate; ... ...//增加或刪除ITEMS的程式碼 ListView.Items.EndUpdate; ----------------------------------------------- Creation is the fundation of promotion.

我的程式码如下：500多个就感觉停顿了1-2秒 procedure TForm1.selectallClick(Sender: TObject); var oldViewStyle: TViewStyle; begin ListView1.Items.BeginUpdate; oldViewStyle := ListView1.ViewStyle; ListView1.ViewStyle := vsList; //Histree.Items.BeginUpdate ; ListView1.SelectAll; // histree.items.endupdate; ListView1.ViewStyle := oldViewStyle; ListView1.SetFocus; ListView1.Items.EndUpdate; end;

知道问题所在了，有个耗时代码listviewselectritem。 如何selectall时不运行此函数？

pcsoftdiy 您好：    呵呵～雖然您已經給了分，但我還是得向您有個實質上的交代才行，要不然真的是受之有愧啊....，我使用的是 BCB4，它所包裝的 ListView 物件本身並未內建 SelectAll 指令，因此我在 ListView 做 SelectAll 的動作時，必須自行處理，我目前使用的是下列方式，在處理的速度上來講算是非常快的，不知您對 BCB 與 Delphi 語法間的對應關係是否有些許的瞭解？希望您能順利將它改成 Delphi 的碼，同時也能獲得相同的效率：

ListView1->SetFocus();
LV_ITEM lv;
lv.mask = LVIF_STATE;
lv.state = LVSIL_STATE;
lv.stateMask = LVIS_SELECTED;    ListView1->Perform(LVM_SETITEMSTATE, -1, (LPARAM)&lv);

如果方便的話，當您測試成功後，請將結果貼上來說明一下，好讓我確認此法與 Delphi 內建 SelectAll 指令兩者間的效率差別，希望我提供的方式能幫到您的忙。 發表人 - RedSnow 於 2005/05/16 12:56:40

redsnow兄，您好 多谢大力帮忙，不过小弟是delphi新手，尚不懂如何把上述cb代码转换，关于selectall，刚才重新审视此问题，发现本人有一段极度耗时代码listselectitem， 如下屏蔽掉耗时代码，500多个图片的selectall也是瞬间完成了 procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin if ListView1.SelCount >1 then exit; //添加此句 showpic(item.subitems[6] '\' Item.Caption, false); previewfilename :=Item.Caption ; end;

pcsoftdiy 您好： 太好了，恭喜您解決了問題，那麼我那段代碼轉不轉譯都不打緊了，就擺在這裡供其他人參考好了。