諸位高手大大...請幫助偶這位新手吧.. 嘻嘻 買了兩本

------
Dragon

第 2 點參考 TListBox.Selected 的 Help 的範例    -- Believe the unbelievable.

引言: 諸位高手大大...請幫助偶這位新手吧.. 嘻嘻 買了兩本>< face="Verdana, Arial, Helvetica"> 應該是 ListBox.Clear; (ListBox.Items.Count 已經變 0)後, 仍企圖去 access listbox1.Items[1] , 如 showmessage(listbox1.Items[1]); trace 一下程式應該可以找到 Bug. /* 使用中文很辛苦,中華男兒當自強 */ 發表人 - Mickey 於 2002/12/24 16:56:49

以下這是偶在刪除所有Listbox的資料項時出現的錯誤視窗 list index out of bouns(1) 猜你是這樣寫的

for i:=0 to Listbox1.items.count-1 do begin
  listbox1.items.objects[i].free;
  listbox1.items.[i].delete;
end;

如果是如此的話, 想想你刪掉objects[0]時, 原objects[1]已變成了0, 最後一項一不見了.繼續下去錯更多 可改成 ,Loop內只free物件, 最後再一次clear 或將loop倒轉 for i:=listbox1.items.count-1 downto 0 do ...

或者:

for i:=0 to Listbox1.items.count-1 do begin
  listbox1.items.objects[0].free;
  listbox1.items.[0].delete;
end;

-- Believe the unbelievable.

其實偶的寫法就跟cccen版主大大說的一樣.. 就是由最後一筆到第0筆.. 但是其中我用的方法是 listbox.selecteddelete; 所以沒用到物件跟free 因為這個地方目前也還沒學到所以也不太了解.. 能不能順便請教一下 free的作用呀.. Dragon

------
Dragon

那是有塞物件到listView.items.objects才須要先free裡面的物件, 沒有就不須要了. 既沒有物件, 直接ListView.items.clear就好了

題外話, ccchen 大大這麼晚了還沒睡 還在這為 KTop 芸芸眾生服務啊! :)    -- Believe the unbelievable.

試試吧 for i:= ListBox1.Items.Count-1 downto 0 do if ListBox1.Selected[i] then ListBox1.Items.Delete(i);

1.殺..... ListBox1.Clear; 2.殺...一個 ListBox1.items.delete(ListBox1.ItemIndex); 3.複製..一個 複製暫存變數:=ListBox1.ItemS.Strings[ListBox1.ItemIndex]; 4.複製多個....MultiSelect=true for i:= ListBox1.Items.Count-1 downto 0 do if ListBox1.Selected[i] then 複製暫存變數:=ListBox1.ItemS.Strings[i];

------
======================
昏睡~
不昏睡~
不由昏睡~