(Administrator)
Registriert seit: 13. Jul 2005
Ort: Stadthagen
1.891 Beiträge
Delphi 12 Athens
|
Re: Quellcode funzt nicht
28. Okt 2006, 12:03
Ein Fehler findet sich hier:
for i := 0 to sl.Count - 1 do if sl.Strings[i] = '' then sl.Delete(i);
Wenn irgendein Item außer dem (sl.Count - 1)ten leer ist, bekommst Du spätestens bei der Überprüfung des letzten Items eine Fehlermeldung, weil dieses Item nicht mehr existiert.
Sochle Schlefen immer rückwärts laufen lassen:
for i := sl.Count - 1 downto 0 do if sl.Strings[i] = '' then sl.Delete(i);
Gruß
onlinekater
[Trotz_roten_Kastens] Weil die Erklärung mit drin ist [/Trotz_roten_Kastens]
|