Bitte geb dir das nächste mal etwas Mühe, und formatiere den Quelltext ein bisschen.. Das ist sehr unschön so. Wenn man Hilfe erwartet, sollte man immer soviel Vorarbeit wie möglich leisten, das ist jedenfalls meine Einstellung.
Trotzdem hier ein Tip:
Delphi-Quellcode:
For I := 1 to AnzahlderSchueler do begin
if lv_schuelerdaten.Items[0].SubItems[I] = 'w' then begin
DurchschnittWZähler := DurchschnittWZähler+1;
DurchschnittWNotenZähler := DurchschnittWNotenZähler+strtofloat(lv_schuelerdaten.Items[4].SubItems[I]);
Du benutzt "I" um auf die SubItems zuzugreifen. Es gibt aber vermutlich nicht so viele SubItems wie AnzahlderSchueler, oder? Daher könnte die
Exception kommen.
Und falls du mit "I" über alle Items im ListView iterieren möchtest, mach nicht "For I := 1 to AnzahlderSchueler" sondern "For I := 0 to lv_schuelerdaten.Items.Count - 1"... War das das Problem?
HTH