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

[cnhxjtoa]

如问题,应该不难吧

[comanche]

太 cool 了吧, 这也能问?

listbox.items[n]
listbox.items.Delete(index)

[comanche]

listbox.items[listbox.itemindex]

[cnhxjtoa]

太牛了吧,跟我的答案一样

[cnhxjtoa]

这样只能得到一个,多选几个得到的结果都是一样的,我是由于时间紧,所以问一下

[cnhxjtoa]

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;

[wudi_1982]

路过。

[DelphiJavaDominoVB]

MARK

[DelphiJavaDominoVB]

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;