2 Nachkommastellen

[mkinzler]

Verwende besser StrToFloatDef()

[himitsu]

Bei Ergänzungen editiere bitte zukünftig deinen letzen Beitrag,
wenn in der Zwischenzeit noch keiner geantwortet hat. (darum darf man dseine Beiträge auch einen Tag lang editieren, ohne "puschen" zu müssen)

Zur Fehlermeldung: Es muß eine gültige Zahl im Edit stehen und "Nichts" (ein Leerstring) ist keine Zahl.

[Ouou]

jetzt habe ich es mit StrToFloatDef gemacht aber es werden mir keine Kommastellen angezeigt.

Delphi-Quellcode:

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

[Codewalker]

Was auch gut geht, ist die Format-Funktion aus den SysUtils:

Delphi-Quellcode:

var
 f: Double;
begin
 f := 3/7;
Edit1.Text := Format('%.2f',[f]);

[DeddyH]

Zitat von Ouou:

jetzt habe ich es mit StrToFloatDef gemacht aber es werden mir keine Kommastellen angezeigt.

Delphi-Quellcode:

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

Der Code hat aber mit dem "Fehler" nichts zu tun.

[Ouou]

Zitat:

Ouou hat folgendes geschrieben:
jetzt habe ich es mit StrToFloatDef gemacht aber es werden mir keine Kommastellen angezeigt.

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

das ist richtig deddyh. ich bekomme es einfach nicht in das ich in meinen edits (1-12) zwei nachkommastellen stehen habe...
man muss es doch in dem vorhanden quellcode anpassen können

[DeddyH]

Du musst die Ausgabe anpassen.Edit1201.Text := Format('%.2f',[ergebnis]);

[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

[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;

[DeddyH]

Dann musst Du eben jedes Edit anpassen. Du zeigst uns die ganze Zeit das Auslesen der Werte, was aber keinen Bezug zur Formatierung der Edits hat.