Wie kann ich ein Durschnitt bilden ohne vollst. Zahlen

[sakura]

Zitat von steve-allround:

!!! Bitte mit volldtändigen Codes.......!!!!

Nö, aber den Ansatz. Solche Bitten solltest Du hier auch nicht stellen, da Du i.A. auf Ablehnung triffst ausser Du legst 150 Euro dazu

Delphi-Quellcode:

var
  Count: Integer;
  Average, Sum: Real;
begin
  Sum := 0;
  Count := 0;
  if Edit1.Text <> '' then
  begin
    Sum := Sum + StrToFloat(Edit1.Text);
    Inc(Count);
  end;
  // usw. usf.


  if Count > 0 then
  begin
    Average := Sum / Count;
    ShowMessage(FloatToStr(Average));
  end;

......