listbox出现list index out of bounds错误，求解？在线等、、、

Question

listbox删除多余行，代码如下
procedure TForm1.Button2Click(Sender: TObject);
var
i,j,k : integer;
begin
for i := 0 to listbox1.Items.Count - 1  do
  for j := 0 to listbox1.Items.Count - 1  do
     for k := 0 to listbox1.Items.Count - 1  do
     begin
    if (listbox1.Items[i] = listbox1.Items[j]) and (i<>j) then    //判断是否有相等的
    listbox1.Items.Delete(j);  //删除重复
end;
end;

Answer 1

for i := listbox1.Items.Count - 1 to 0 do
...后面的j,k也是一样的改

Answer 2

你这个就的从后往前删除，从前往后删除，你删除一个，listbox的下标最大值就更改一次，到最后肯定是下标越界。

Answer 3

楼主这段代码我看不懂额。。  k这个变量拿来做什么的 如果只是要删除重复的条目 
  for i := ListBox1.Items.Count - 1 downto 0 do
  begin
    for j := 0 to i - 1 do
    begin
      if ListBox1.Items[i] = ListBox1.Items[j] then
      begin
        ListBox1.Items.Delete(i);
        Break;
      end;
    end;
  end;记得用downto 不然你删掉一个条目后count就变了，由下至上的拿自己和自己以上的条目比较，如果存在相等的条目，就删除自己。