List index out of bounds (91)

[KoBRaAndrey]

procedure TForm2.sSpeedButton2Click(Sender: TObject);
var
  hSnapShot: THandle;
  ProcInfo: TProcessEntry32;
  kick,system:tstringlist;
  i,a,b,c:integer;
    user:tstringlist;
begin
listbox1.Clear;
listbox2.Clear;
  hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (hSnapShot <> THandle(-1)) then
  begin
    ProcInfo.dwSize := SizeOf(ProcInfo);
    if (Process32First(hSnapshot, ProcInfo)) then
    begin
      while (Process32Next(hSnapShot, ProcInfo)) do
      listbox1.Items.add(ProcInfo.szExeFile);
    end;
    CloseHandle(hSnapShot);
  end;
  ListBox1.Items.Delete(0);
  kick:=tstringlist.Create;
  if fileexists('kick.txt')=false then kick.SaveToFile('kick.txt');
  kick.LoadFromFile('kick.txt');
  listbox2.Items.Text:=kick.Text;
  kick.Free;
  system:=tstringlist.Create;
  system.Add('explorer.exe');
  system.Add('svchost.exe');
  system.Add('csrss.exe');
  system.Add('winlogon.exe');
  system.Add('services.exe');
  system.Add('smss.exe');
  system.Add('spoolsv.exe');
  system.Add('wininit.exe');
  system.Add('lsass.exe');
  system.Add('lsm.exe');
  system.Add('dwm.exe');
  system.Add('nvSCPAPISvr.exe');
  user:=tstringlist.Create;
  if fileexists('user.txt')=false then user.SaveToFile('user.txt') else user.LoadFromFile('user.txt');


  for I := listbox1.count - 1 downto 0 do begin

  for a :=listbox2.count-1 downto 0 do begin
  if listbox1.Items.Strings[i]=listbox2.Items.Strings[a] then listbox1.Items.Delete(i);
  end;

  if checkbox1.Checked=false then begin
  for b :=system.count-1 downto 0 do begin
  if listbox1.Items.Strings[i]=system.Strings[b] then listbox1.Items.Delete(i);
  end;
  end;

  for c := user.count -1 downto 0 do begin
  if listbox1.Items.Strings[i]=user.Strings[c] then listbox1.Items.Delete(i);
  end;

  end;
  label1.Caption:='Количество процесов - '+IntToStr(listbox2.Count);
  label2.Caption:='Количество процесов - '+IntToStr(listbox1.Count);
  sstatusbar1.SimpleText:='Обновление завершено';
end;

иногда вылетает ошибка List index out of bounds (91)..

[AlexanderKs]

эта ошибка вылетает когда запрашивается несуществующая строчка.
Неверное обращение может происходить в циклах (в случае, если один из объектов не содержат строк (пустой):

  for I := listbox1.count - 1 downto 0 do begin
  ....
  for a :=listbox2.count-1 downto 0 do begin
  ....
  for b :=system.count-1 downto 0 do begin
  ....

[mihali4]

Странно, что вообще что-то работает...

user:=tstringlist.Create;
if fileexists('user.txt')=false then 
user.SaveToFile('user.txt') else 
user.LoadFromFile('user.txt');

Что будет в user, если файл 'user.txt' еще не создан?


И чему в этом случае будет равно выделенное красным?

for c := user.count -1 downto 0 do 
begin
if listbox1.Items.Strings[i]=user.Strings[c] then 
listbox1.Items.Delete(i);
end;

[KoBRaAndrey]

  if fileexists('user.txt')=false then begin
  user.SaveToFile('user.txt');
  users:=0;
  end else
  user.LoadFromFile('user.txt');

  if users=1 then begin
  for c := user.count -1 downto 0 do begin
  if listbox1.Items.Strings[i]=user.Strings[c] then listbox1.Items.Delete(i);
  end;
  end;

так решил,теперь не должно вылетать?

[evg_m]

for I := listbox1.count - 1 downto 0 do begin

  for a :=listbox2.count-1 downto 0 do begin
  if listbox1.Items.Strings[i]=listbox2.Items.Strings[a] then listbox1.Items.Delete(i);
  end;

берем случай listbox1 содержит 1 запись
и listbox2 - 2 записи такие, что они обе равны единственной записи из ListBox1
удаляем из ListBox1 по первому сравнению, получаем пустой Listbox1 и с чем теперь нам сравнивать (цикл по a еще не закончился)

[KoBRaAndrey]

выйдет ошибка тогда... но впринцепе с 2 мя процессами норм пашет

[evg_m]

иногда вылетает ошибка List index out of bounds (91)..

выйдет ошибка тогда... но впринцепе с 2 мя процессами норм пашет

зачем ТРИ раза проверять один список
если можно проверить все сразу

fo j:=listbox1.count downto 0 do
begin
  if listbox2.indexof( listbox1.items.strings[j] )>=0 
or system.indexof( listbox1.items.strings[i] )>=0//а здесь добавить chexbox1.checked
or user.indexof( listbox1.items.strings[j]) then listbox.items.delete(j);>=0
end;