delphi7 CheckListBox 删除选中项

Question

delphi

Answer 1

ok了。把for循环改一下。
for I:=CheckListBox1.Items.Count-1 downto 0 do现在差个写文件，求高手~~~

Answer 2

不用ini文件了。
ini文件还要节点什么的。
我里面就放
COM1-1
COM2-2
用txt文件就可以了/

Answer 3

你的循环语句有错误，循环时找到选中的项可以删除，当删除一项后，它的CheckListBox1.Items.Count已经减1，这样继续循环，出现越界错误。将程序修改如下，即可：
var i:integer;
begin
var i:integer;
begin
//  for I:=0 to CheckListBox1.Items.Count-1 do
  for I:=CheckListBox1.Items.Count-1 downto 0 do
  begin
     if CheckListBox1.Checked[I] then
     begin
       CheckListBox1.Items.Delete(I);
     end;
  end;

Answer 4

CheckListBox1.Items存储方式是堆栈方式