Einzelnen Beitrag anzeigen

Tubos

Registriert seit: 25. Feb 2004
Ort: Yspertal (Niederösterreich)
1.014 Beiträge
 
Delphi 7 Personal
 
#1

Programmabsturz bei Zugriff auf letztes Item einer Listbox

  Alt 9. Apr 2004, 17:13
2Hallo!

Mein Programm stürzt beim Zugriff auf eine Listbox ab.
Hier ist der Code: (vereinfacht)
Delphi-Quellcode:
for i:=0 to listbox1.items.count-1 do
 begin
  if copyfile(pchar(listbox1.items[i]),pchar(sicherungsname(listbox1.items[i])),false)=true then showmessage(listbox1.items[i]+' wurde gesichert.')
  else
  begin
   showmessage(listbox1.items[i]+' konnte nicht gesichert werden.');
   listbox1.items.delete(listbox1.items.indexof(listbox1.items[i]));
  end;
 end;
"Sicherungsname" ist eine Funktion aus nur einer einzigen Zeile, die einen eindeutigen Dateinamen zurückgibt. Hundertfach getestet, darin liegt der Fehler sicher nicht.
Durch Debuggen bin ich dann draufgekommen, der Fehler liegt darin:
 if copyfile(pchar(listbox1.items[i]),pchar(sicherungsname(listbox1.items[i])),false)=true then showmessage(listbox1.items[i]+' wurde gesichert.') Wenn listbox1 aus 3 Items besteht, läuft das Programm 3 mal durch, aber beim 3. Mal an dieser Stelle kommt folgende Meldung:
"Im Projekt Project1 ist eine Exception der Klasse EStringListError aufgetreten. Meldung: 'Der Index der Liste überschreitet das Maximum (2)' [...] "
Wieso überschreitet der Index den Wert 2? ich habe doch "to listbox1.items.count-1" gemacht!

mfg. Tubos
Lukas
  Mit Zitat antworten Zitat