X
xieyj
Unregistered / Unconfirmed
GUEST, unregistred user!
怎么读取选取多个Items的 ListBox 的值?
X
xieyj
Unregistered / Unconfirmed
GUEST, unregistred user!
请大家帮帮忙吧
娃
娃娃
Unregistered / Unconfirmed
GUEST, unregistred user!
为个很简单啊，做一个遍历
for i:=0 to listbox1.items.count-1do
begin
if listbox1.selected then
memo1.lines.add(listbox.items.string);
end;
for i:=0 to listbox1.items.count-1do
begin
if listbox1.selected then
memo1.lines.add(listbox.items.string);
end;
X
xieyj
Unregistered / Unconfirmed
GUEST, unregistred user!
我指的是 SelCount ,选取的ITEM,而不是所有的
吴
吴明桓
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.ListBox1Click(Sender: TObject);
var
s:string;
begin
s:=listbox1.Items[listbox1.itemindex];
showmessage(s);
end;
var
s:string;
begin
s:=listbox1.Items[listbox1.itemindex];
showmessage(s);
end;
X
xieyj
Unregistered / Unconfirmed
GUEST, unregistred user!
楼上的兄弟,谢谢您,这是选取一个时可以这样写,选取多个应该怎么写呢?
王
王公子
Unregistered / Unconfirmed
GUEST, unregistred user!
for I := List.Items.Count - 1do
wnto 0do
if List.Selected then
begin
Items.AddObject(List.Items, List.Items.Objects);
List.Items.Delete(I);
end;
DELPHI有个自带的模板呀
wnto 0do
if List.Selected then
begin
Items.AddObject(List.Items, List.Items.Objects);
List.Items.Delete(I);
end;
DELPHI有个自带的模板呀
X
xieyj
Unregistered / Unconfirmed
GUEST, unregistred user!
大家都不明白我的意思,是 Listbox.SelCount ,而不是 Listbox.items.count
是选择的项目
是选择的项目
娃
娃娃
Unregistered / Unconfirmed
GUEST, unregistred user!
你先试试我的代码先。不管是多选还是单选，只要被先中的，那一行的
selected属性就是真，所以，只要做一个遍历就行了。
selected属性就是真，所以，只要做一个遍历就行了。
老
老人家
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
begin
Listbox1.MoveSelection(TCustomListControl(Listbox2));
end;
begin
Listbox1.MoveSelection(TCustomListControl(Listbox2));
end;
M
maolu28
Unregistered / Unconfirmed
GUEST, unregistred user!
是不是listbox1.selCount？
C
cbyhn
Unregistered / Unconfirmed
GUEST, unregistred user!
關注[
]
]
C
chenzhou
Unregistered / Unconfirmed
GUEST, unregistred user!
to 娃娃
你的代码肯定可以 不用试 但是太慢
你的代码肯定可以 不用试 但是太慢
若
若凡
Unregistered / Unconfirmed
GUEST, unregistred user!
你试一试吧！
var
i:integer;
begin
for i:=0 to listbox1.Items.Count-1do
begin
if listbox1.Selected then
memo1.Lines.Add(listbox1.Items);
end;
end;
var
i:integer;
begin
for i:=0 to listbox1.Items.Count-1do
begin
if listbox1.Selected then
memo1.Lines.Add(listbox1.Items);
end;
end;