2 Nachkommastellen

[Klaus01]

Delphi-Quellcode:

  for i :=  1 to 12 do
  begin
    ergebnis := ergebnis + StrToFloat(TEdit(FindComponent('Edit' + IntToStr(i))).Text);  // um hier Rundungsfehler zu vermeiden
  end;
  Edit1201.Text := // wie Detlef beschrieben hat
begin
  ergebnis :=0;

Grüße
Klaus