Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi 2 Nachkommastellen (https://www.delphipraxis.net/150132-2-nachkommastellen.html)

mkinzler 8. Apr 2010 11:42

Re: 2 Nachkommastellen
 
Verwende besser StrToFloatDef()

himitsu 8. Apr 2010 11:42

Re: 2 Nachkommastellen
 
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 8. Apr 2010 12:02

Re: 2 Nachkommastellen
 
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 8. Apr 2010 12:03

Re: 2 Nachkommastellen
 
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 8. Apr 2010 12:04

Re: 2 Nachkommastellen
 
Zitat:

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 8. Apr 2010 13:22

Re: 2 Nachkommastellen
 
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 :wall:

DeddyH 8. Apr 2010 13:26

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

Klaus01 8. Apr 2010 13:30

Re: 2 Nachkommastellen
 
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 8. Apr 2010 13:32

Re: 2 Nachkommastellen
 
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 8. Apr 2010 13:38

Re: 2 Nachkommastellen
 
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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:43 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz