Mein Code:
Delphi-Quellcode:
for i := 0 to supi.Count - 1 do
begin
if (supi.ValueFromIndex[i] = paramStr(4)) then
begin
eFound := True;
supi.Delete(i-1);
supi.Delete(i-1);
supi.Delete(i-1);
supi.Delete(i-1);
supi.SaveToFile(paramStr(2));
end;
end;
Der Fehler:
Q:\>Q:\DATEN\Projekte\delupientry\delupientry -f C:\upm.his -e hideext.upi
Exception EStringListError in Modul delupientry.exe bei 00011CF5.
Listenindex überschreitet das Maximum (52).
Das Problem:
Der Fehler erscheint aber das Programm funktioniert ansonsten genau so wie ich das will...
Es soll mir aus einer Textdatei 4 Zeilen löschen... Es werden genau die Vier Zeilen gelöscht die ich will, alles funktioniert so wies soll.. aber woher der Fehler???
Wenn ich die vier "supi.Delete(i-1);" weglasse kommt der Fehler nicht... - Dann werden aber auch die gewünschten Zeilen nicht gelöscht...
Jmd eine Idee was ich schon wieder nicht korrekt mache?