在线等:解决马上散分:如何取到ListBox中选中的值及如何删除ListBox中多余的值

Question

如问题,应该不难吧

Answer 1

太 cool 了吧, 这也能问?listbox.items[n]
listbox.items.Delete(index)

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
memo1.Clear;
 for i:=0 to listbox1.SelCount-1 do   begin
  memo1.Lines.Add('当前的号:'+inttostr(listbox1.ItemIndex)+ '  当前的值:'+listbox1.items[listbox1.itemindex] );
end;
end;

Answer 3

procedure TForm1.Add1Click(Sender: TObject); 
var 
i:Integer; 
begin 
for i :=0 to ListBox1.Count-1 do 
begin 
if ListBox1.Selected[i] then 
ListBox2.Items.Add(ListBox1.Items.Strings[i]); 
end; 
ListBox1.DeleteSelected;//增加后删除所选的记录 
end;