为什么下面的 AddToList 调用一次没事，第二次就会出错。

Question

procedure TfrmMain.add();
begin
  if opendialog1.Execute then 
    for i:=0 to OpenDialog1.Files.Count-1 do
    begin
      AddtoList(Opendialog.Files.Strings[i]);
    end;
end;procedure TfrmMain.AddtoList(const filename: String);
var
  item:TListItem;
begin
  item:=lvFiles.items.Add;
  item.Caption:= FileName;
end;调用超过一次就会出现说 :
  EStringListError ,List index out of bounds(-2);
这是怎么回事？

Answer 1

直接加入列表(命名ListBox)不可以吗？何必如此繁琐
procedure TfrmMain.add();
begin
  listBox.item.clear;
  if opendialog1.Execute then 
    for i:=0 to OpenDialog1.Files.Count-1 do
     ListBox.Items.add(Opendialog.Files.Strings[i]);
end;

Answer 2

改成：
for i:=OpenDialog1.Files.Count-1 downto 0 do试试

Answer 3

我的lvFiles是TListview,不是TListbox.