這是什么錯誤？？？
delphi吧
全部回复
仅看楼主
level 2
老板来副反甲😫 楼主
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=0;
while i < Listbox1.count-1 do
if Listbox1.Selected[i] then
begin
Listbox1.Items.delete(i);
end;
為什么刪除不了呢，編譯不出錯啊
2017年05月24日 01点05分 1
level 2
老板来副反甲😫 楼主
求告知啊！！！！
2017年05月24日 02点05分 2
level 2
老板来副反甲😫 楼主
[泪]
2017年05月24日 02点05分 3
level 2
老板来副反甲😫 楼主
沒人嗎？？[黑线]
2017年05月24日 03点05分 4
level 11
天道玄虚
你的死循环了，set i := i + 1;呢？
2017年05月24日 06点05分 5
老板来副反甲😫
我是故意不讓變量更新的，這樣寫問題是出在循環上嘛？？如果到最后一項呢，那就不是停下來了嗎。而且這樣寫點擊按鈕之后就是沒反應，直接進調試了[狂汗]
2017年05月24日 08点05分
天道玄虚
你不妨多试试，不要捏着一段代码不放。
2017年05月24日 23点05分
1813254523
@老板来副反甲😫 你把第一个删除了他不会主动选中第二个，所以不会一直删除到最后一项就陷入死循环了
2017年05月25日 04点05分
level 14
xuchuantao17
死循环一直占用主线程，主线程没法更新界面
2017年05月25日 08点05分 6
1