Hab sowas im Info-Unterricht auch mal gemacht:
Delphi-Quellcode:
for i:=1 to 10 do // 10 Durchgänge, für jedes Feld einen
begin
zahl[i]:=0; // Variablen auf 0
if (TEdit(FindComponent('Edit'+inttostr(i))).text)<>'' then // Wenn das Feld leer ist überspringen
try // bei Fehler wird in bei except weitergemacht, verhindert Buchstaben
zahl[i]:=strtoint(Trim(TEdit(FindComponent('Edit'+inttostr(i))).text));
// Such nach dem Edit-Feld und lese es dann ins Array ein
inc(zwi,zahl[i]); inc(teiler) // Für die Rechnung zusammenzählen und Teiler erhöhen
except inc(fehler) end; // Wenn Fehler, dann die Fehleranzahl erhöhen
end;
durchschnitt.text:=floattostr(zwi/teiler);