2 Nachkommastellen

[Deep-Sea]

Zitat von Ouou:

Delphi-Quellcode:

for i := 1 to 12 do
  begin
    ergebnis := ergebnis + FloatToStrF(TEdit(FindComponent('Edit' + IntToStr(i))).Text, ffFixed, 8, 2);
  end;

FloatToStr wandelt einen Float-Wert in einen String um - logisch. Aber du gibst ihm mit TEdit.Text einen String rein, anstatt einer Zahl. Wenn ergebnis eine Float-Variable ist, müsstest du wohl eher StrToFloat nutzen.