Also ich würde das gesamte Programm komplett neu aufbauen.
Anstatt jede Note in ein Editfeld einzutragen ist es viel einfacher alle Noten
in ein mehrzeiliges Memofeld zu schreiben (jede Note in eine Zeile).
Delphi-Quellcode:
procedure TForm1.BerechneDurchschnitt;
var
i : integer;
zeile : string;
summe,note : double;
anzahl : integer;
begin
summe := 0;
anzahl := 0;
// Noten aufsummieren
for i := 0 to Memo1.Lines.Count-1 do
begin
zeile := Memo1.Lines[i];
note := StrToFloatDef(zeile, -1);
if note > 0.0 then
begin
summe := summe + note;
Inc(anzahl);
end;
end;
// Durchschnitt berechnen und anzeigen
if anzahl > 0 then
EditDurchschnitt.Text := FloatToStr(summe / anzahl)
else
EditDurchschnitt.Text := 'keine Noten vorh.';
end;