2 Nachkommastellen

[Ouou]

Zitat:

Edit1201.Text := Format('%.2f',[ergebnis]);

die aussage ist ja schon angepasst. das ergebnis wird ja mit zwei nachkommastellen angezeigt nur die beträge die man in den jeweiligen edits schreibt nicht.
ich will die edits bei mir sind es wie hier:

Delphi-Quellcode:

for i :=  1 to 12 do
  begin
    ergebnis := ergebnis + StrToFloatDef(TEdit(FindComponent('Edit' + IntToStr(i))).Text,0);
  end;

12 edits. jedes edit soll zwei nachkommastellen besitzen.

Hier mal die ganze procedure vielleicht wirds dann klarer:

Delphi-Quellcode:

var
  ergebnis: Real;
  i: integer;
begin
  ergebnis := 0;

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

  for i := 1201 to 1206 do
  begin
    ergebnis := ergebnis + StrToFloatDef(TEdit(FindComponent('Edit' + IntToStr(i))).Text,0);
  end;
  prodLK.Text := FloatToStrF(ergebnis, ffFixed, 8,2);
end;
end;