Notenspiegel mit Hindernissen

[Helmi]

auch wenn ich Schläge bekomme,
hier mal ein kleiner Ansatz:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  out_i: Integer;

begin
  out_i := 0;

  for i := 1 to 2 do
    begin
      out_i := out_i + StrToIntDef((FindComponent('Edit' + IntToStr(i)) as TEdit).Text, 0);
    end;

  Edit3.Text := IntToStr(out_i div 2);
end;

Beschreibung:
Edit1 und Edit2 sind Eingabefelder für zwei Noten.
Die Schleife hat deswegen auch nur zwei Durchläufe (wenn mehr Edits dann mehr Durchläufe).
StrToIntDef konvertiert den String in ein Integer. Läuft das fehl, wird der Default-Wert zurückgegeben.
Edit3 ist das Ausgabefeld für den Mittelwert.

Dies soll nur ein kleiner Ansatz sein - es ist noch ausbaufähig.
Z. B. könnte man das StrToIntDef gegen ein StrToInt austauschen, wenn die Edits nur Zahlen zulassen,................

[ghost1601]

jetzt muss ich mir mal selber einen klaps auf den hinterkopf geben...
ich hatte die sache mit dem out_i := out_i + ... nicht reingeschrieben sondern hatte nur alles was hinter dem plus kam
gut...jetzt bin ich schlauer dann sollte es auch was werden

ein großes danke