判断错误

Question

var
  i,n:integer;
  s:string;
begin
  Ini_Path:=ExtractFilePath(Paramstr(0));
  Ini_Name:='Url.ini';
  MyIniFile:=Tinifile.Create(Ini_Path+Ini_Name);
  ListView2.Clear;
  MyStrings:=TStringList.Create;
  TempStrings:=Tstringlist.Create;
  Class_Name:=ListView1.Items[List1_ID].SubItems[0];
  memo1.Lines.Add(Class_Name);
  MyIniFile.readsectionvalues('Url',MyStrings);
  for i:=0 to MyStrings.Count-1 do
  begin
    TempStrings.Clear;
    ExtractStrings(['=','!'],[' '],Pchar(MyStrings.Strings[i]),TempStrings);
    for n:=0 to TempStrings.Count-1 do
    begin
      Url_Name:=TempStrings.Strings[0];
      Url_Http:=TempStrings.Strings[1];
      Url_Class:=TempStrings.Strings[2];
    end;
    if Url_Class=Class_Name then
    begin
      ListView2.Items.Add;
      ListView2.Items[i].Caption:=Url_Name;
      ListView2.Items[i].SubItems.Add(Url_Name);
      ListView2.Items[i].SubItems.Add(Url_Http);
      ListView2.Items[i].SubItems.Add(Url_Class);
    end;
  end;
  TempStrings.Free;
  MyStrings.Free;
  MyIniFile.Free;
问题不加判断正常  加上判断出错错误信息Access violation at address 004471A4 in module 'Url_m.exe'.Read of address 00000020

Answer 1

加了判断之后ListView2.Items[i]就可能为空了,因为只有满足条件时才会ListView2.Items.Add,假如i有10次循环,只有一次满足条件,假定是i:=5时满足条件,但是现在ListView2中只有一个item,那么你访问ListView2.Items[i],i:=5肯定会出错,因为Items[5]根本不存在