try this:
for i := Listbox1.Items.Count - 1 downto 0 do
if ListBox1.Selected[i] then
begin
listbox2.Items.Add (listbox1.items[i]);
ListBox1.Items.Delete(i);
end;
for i := Listbox1.Items.Count - 1 downto 0 do
if ListBox1.Selected[i] then
begin
listbox2.Items.Add (listbox1.items[i]);
ListBox1.Items.Delete(i);
end;
解决方案 »
- 编译后的exe,dll能否查到是用delphi那个版本做的吗?
- DevExpress FlowChart控件在WIN2000下不能显示多页图面,请高手帮忙
- 寻求stringGrid数据写入数据库的最佳方案。。
- 分栏打印的问题!高手请进!!!
- 同时运行两个窗体内的内容!
- 有偿索取xls处理模块
- 分不够,另开帖送分
- 请问建立bitmap:=Tbitmap.create,怎样设置可以通过loadfromfile载入合乎自己要求大小的位图,也就是无论位图实际多大,载入后自己缩放为我
- 怎样设置活动的mdiform中的text框的值?一定给分!
- 高分请教,怎么样用ADOtable查询呀
- 如何提取ListView里的内容!
- 急,后天就要答辩了:把一个表里的记录添加到另一个表里的问题,看看我的代码错在那里了?
2、我不用QQ。