请问这段方法为什么会错?有办法只用listbox1.Items.Delete(i);而不用listbox1.Clear;吗???
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to listbox1.items.count-1 do
begin
listbox2.Items.Add(listbox1.Items[i]); //当listbox1加一时 ;
listbox1.Items.Delete(i); // listbox2减一;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to listbox1.items.count-1 do
begin
listbox2.Items.Add(listbox1.Items[i]); //当listbox1加一时 ;
listbox1.Items.Delete(i); // listbox2减一;
end;
end;
解决方案 »
- 用delphi实现清空access数据库中表的内容。
- DELPHI is not a valid value,是属于什么类型的错误
- 跪求重要资料!!!
- 一个好的在线学习,及资料下载基地
- 请问用MMTools能实现以下所说的功能吗(滤波)?
- 注册表写入问题??/
- 请教:怎样使用ValueListEditor?再加分酬谢!!
- 关于delphi中的异常处理
- 我在程序中启动了另外一个进程,是用createprocess来启动的,遇到这样的一个问题,请高手帮忙解决
- RichEdit字体高度问题,怎么样才能使两个RichEdit行的高度一致?
- 软件测试兼散分,敬请参与于意见!
- 如何与MS SQLServer数据库联上?
begin
listbox2.Items.Add(listbox1.Items[i]); //当listbox1加一时 ;
listbox1.Items.Delete(i); // listbox2减一;
end;
你没觉得你原来的item.count随着listbox1.Items.Delete(i);的执行而变化了吗?