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,................