我對delphi 還在學習中 是位初學者想請問 若在form中拉了一個listview利用table 將資料一比一比秀出來 但是想勾選checkbox來刪除所勾選的資料而程式要寫在一個button內 要如何做??? < > 使用下面這個程式的話只能刪除最後一比 若刪除中間的資料會出錯若一次刪二比也會錯那是什麼原因?? >< > 發表人 -

Hi 2285: 先將listview.checkboxes設為true, 在listview的每個item前方就會看一個checkbox, 再來, 在button的click event中寫刪除listitem的code, 參考參考... for i := 0 to ListView.Items.Count - 1 do begin if ListView.Items.Item[i].Checked = True then begin ListView.Items.Delete(i); i := i - 1; end; end; -------------------------- ～天下本無事 庸人自擾之～

我試過了,應該可以跑 

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
 NOCHECK:boolean;
begin
 NOCHECK:=false;
 while  NOCHECK=false do begin
  for i:=0 to ListView1.Items.Count-1 do begin
    NOCHECK:=true;
    if ListView1.Items.Item[i].Checked = True then begin
     ListView1.Items.Delete(i);
     NOCHECK:=false;
     break;
    end;
  end;
 end;
end; 

永遠追不上技術更新的速度

------
星期一,二...無窮迴圈＠＠