ungültiger Gleitkommawert?

[sx2008]

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;

[Eltonmaster]

Vielen Dank für die Antworten.

Zu Popov. Es dürften ja nur zugelassenen Werte (Zahlen) eingetragen werden, oder nicht? 0-6

Und sonst versuche ich es mal mit dem memofeld (könnt ihr mir mal erklähren wie die Rechnung dann aufgebaut ist, weil nur abkopieren ist ja sinnfrei )
Außerdem, muss ich denn keinen Button betätiegen wenn ich diese Variante (memo) verwende?

[DeddyH]

Ganz anderer Vorschlag: statt der Edits ComboBoxen nehmen, Items zur Designtime eintragen, Style auf z.B. csOwnerDrawFixed und ItemIndex mit 0 vorbelegen. So kann es gar keine Fehleingaben geben.