新手问题:有关listbox

Question

1、    listbox1.Items.Insert(Listbox1.itemindex,'123');
2、    Listbox1.items.delete(Listbox1.itemindex);
3、    Listbox1.items.SaveToFile('E:\listbox.txt');

Answer 1

2.如果要删除多行，必须使用循环实现，而且必须是倒序处理：
for I := listbox1.items.count - 1 downto 0 do
begin
  if listbox1.items[I].selected then
    listbox1.items.delete(Listbox1.itemindex)
end;

Answer 2

1、ListBox1->Items->Insert(ListBox1->ItemIndex ,"111111");
2、for (int i = 0; i < ListBox1->Items->Count; i++)
    { 
        if (ListBox1->Selected[i])
          {
            ListBox1->Items->Delete(ListBox1->ItemIndex);
          }
    }
3、
TStringList *MyList=new TStringList();
 for (int i = 0; i < ListBox1->Items->Count; i++)
    { 
       MyList->Add(ListBox1->Items->Strings[i]);
    }
   Mylist->SaveToFile("c:\\test.txt");
   delete Mylist;

Answer 3

1、ListBox1->Items->Insert(ListBox1->ItemIndex ,"111111");
2、for (int i = 0; i < ListBox1->Items->Count; i++)
    { 
        if (ListBox1->Selected[i])
          {
            ListBox1->Items->Delete(ListBox1->ItemIndex);
          }
    }
3、
TStringList *MyList=new TStringList();
 for (int i = 0; i < ListBox1->Items->Count; i++)
    { 
       MyList->Add(ListBox1->Items->Strings[i]);
    }
   Mylist->SaveToFile("c:\\test.txt");
   delete Mylist;

Answer 4

cobi(我是小新)说得对，我的2、有逻辑错误！