rzfilelistbox1.Clear;
ListFile1:=Tstringlist.Create;
filelist(edit1.Drive+':') ; for i:=0 to (listFile1.Count-1) do
begin
Filename:=ListFile1.Strings[i];
rzfilelistbox1.Items.Add(FileName); end;当 rzfilelistbox1.Items.Add(FileName); 改成listbox插件时候就不会发生 list index out of bounds(12)
ListFile1:=Tstringlist.Create;
filelist(edit1.Drive+':') ; for i:=0 to (listFile1.Count-1) do
begin
Filename:=ListFile1.Strings[i];
rzfilelistbox1.Items.Add(FileName); end;当 rzfilelistbox1.Items.Add(FileName); 改成listbox插件时候就不会发生 list index out of bounds(12)
rzfilelistbox1.Items.Add(FileName);//ADD函数也可能越界?应该是ListFile1.Strings[i];
越界吧,
你在别的地方用下rzfilelistbox1.Items.Add('ddddddddd');//试试
这种错误不应该出现在Add时,而是for i:=0 ....这里难道Add添加的数据有限制,比如,不能添加空的? 是不是中間还有其它的代码,比如刪除
你强= = 没错 就是这个原因了吧··恍然大悟···因为我在做个搜索的工具··把东西通过条件一个个添加进去··结果像你说的listFile1.Count>你指定路径下的··就out of bounds了···