procedure TForm1.Button1Click(Sender: TObject);var i:integer;begin i:=Listbox1.count-1; repeat if Listbox1.Selected[i] then Listbox1.Items.delete(i); i:=i-1; until i<=0 end;
本程序演示了如何使用Delphi编写一个简单的界面应用,该应用能够从列表框中删除所有被选中的条目。通过递减循环遍历列表框中的每一项,并检查是否被选中,如果选中则直接删除。
procedure TForm1.Button1Click(Sender: TObject);var i:integer;begin i:=Listbox1.count-1; repeat if Listbox1.Selected[i] then Listbox1.Items.delete(i); i:=i-1; until i<=0 end;
368

被折叠的 条评论
为什么被折叠?
