Notendurchschnitt erechnen!

[Thorben_Ko]

ich hab das auch mal gemacht ( mein erste prog ), brauchst du wirklich für jedes fach ein Edit?

Ich poste mal wie ich es darmals gemacht habe.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
a : real;
begin
  if Edit1.Text = '' then
  Label1.Caption := 'Bitte die Noten oben eintragen.'
  else
  noten := noten + strtoint(edit1.text);
  count := count + 1;
  a := noten/count;
  label1.Caption := 'Ihr Notenschnitt ist:   ' + Formatfloat('0.##', a);
  Edit1.text := '';
  Edit1.SetFocus;
end;

count und noten sind Klassen Variabeln vom Form

Vll hillft dir das ja was