Wie kann ich ein Durschnitt bilden ohne vollst. Zahlen

[steve-allround]

Ich hänge jetzt an einer Stelle an der Formel.... Ich habe sie schon verstanden...

und zwar...

was muss ich für jeden Edit machen?
das

Delphi-Quellcode:

begin
  Sum := 0;
  Count := 0;
  if Edit2.Text <> '' then
  begin
    Sum := Sum + StrToFloat(Edit2.Text);
    Inc(Count);
  end;

oder das????

Delphi-Quellcode:

if Edit2.Text <> '' then
  begin
    Sum := Sum + StrToFloat(Edit2.Text);
    Inc(Count);
  end;

[steve-allround]

ich habs.... nur noch eine Frage.....

wie kann ich jetzt das Ergebnis in ein Label anzeigen lassen, statt in ein Dialog???

[sakura]

An der Stelle würde ich sagen - teste mal, wenn Dir die Logik da zu schwer ist :shock:

...:cat:...

[steve-allround]

der Link zum Frage beantworten ist nicht da....

[sakura]

Zitat:

Zitat von steve-allround

der Link zum Frage beantworten ist nicht da....

Sorry - was meinen Sie ?

...:cat:...

[GetCool]

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);

[steve-allround]

Ich kann dieses Forum nicht als Beantwortet makieren.....

[Robert_G]

Moin.
Der Thread steht ja auch nicht als offene Frage drin.