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;