为什么listview添加项目的时候会出这样的问题？

procedure   TForm1.SpeedButton1Click(Sender:   TObject);  
  var  
  i:integer;  
  newitem:tlistitem;  
  begin  
  if   opendialog1.Execute   then  
  begin  
    for   i:=0   to   opendialog1.Files.Count-1   do  
    begin  
          newitem:=tlistitem.Create(listview2.Items);  
          newitem:=listview2.Items.Add();  
          newitem.Caption:=inttostr(i+1);  
          newitem.SubItems.Strings[0]:=opendialog1.Files.Strings[i];  
          newitem.Checked:=false;  
    end;  
  end;  
  end;  
  //listview2已经有2列了。  
   
  运行期错误：List   Index   Out   of   Bounds(0).  
   
  why??? 问题点数：20、回复次数：3Top

1 楼stanely（俺是邢她汉子）回复于 2002-01-02 23:56:52 得分 0

??Top

2 楼stanely（俺是邢她汉子）回复于 2002-01-03 12:11:37 得分 0

???Top

3 楼bear_c（）回复于 2002-01-03 12:51:32 得分 20

改成newitem.SubItems.add(opendialog1.Files.Strings[i]);试试。Top

相关问题

• newitem
• opendialog1
• listview
• tlistitem
• subitems
• items
• add

• 帖主：stanely
• bear_c

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载