Einzelnen Beitrag anzeigen

TBx
(Administrator)

Registriert seit: 13. Jul 2005
Ort: Stadthagen
1.891 Beiträge
 
Delphi 12 Athens
 
#5

Re: Quellcode funzt nicht

  Alt 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]
Thomas Breitkreuz
Gruß Thomas
- Admin DelphiPRAXIS
- Admin Delphi-Treff
- Embarcadero MVP
  Mit Zitat antworten Zitat