wie auf x nachkommastellen runden ?

[khh]

Hallo zusammen,
ich habe einen Wert den ich in einen String konvertiere: currtostr(preis);

wie kann ich die Nachkommastellen im String begrenzen?
Standardmässig hab ich 14 Nachkommastellen


Danke Gruss KH

[Klaus01]

Hallo,

schau Dir in der Delphi Hilfe mal die format Funktion an.

[edit] allerdings rundet format nicht sonder schneidet ab [/edit]

Grüße
Klaus

[Sven M.]

"FloatToStrF" ist dein Freund!

[Luckie]

Also wenn der Datentyp von Typ Currency ist, sollte die Funktion currtostr auch auf zwei Stellen nach dem Komma runden. Ansonsten gibt es da noch Round und FloatToStrF.

[SteffenSchm]

In der Unit Math gibt es (zumindest in Delphi2009) die Funktion

Delphi-Quellcode:

function RoundTo(const AValue: Extended;
                 const ADigit: TRoundToEXRangeExtended): Extended;

Ich glaube diese Funktion macht exakt das was Du suchst.

[khh]

Zitat von SteffenSchm:

In der Unit Math gibt es (zumindest in Delphi2009) die Funktion

Delphi-Quellcode:

function RoundTo(const AValue: Extended;
                 const ADigit: TRoundToEXRangeExtended): Extended;

Ich glaube diese Funktion macht exakt das was Du suchst.

ich danke euch, leider gibts die Funtion in Lazarus nicht

alternativ könnte man vieleicht das editfeld formatieren, falls das irgendwie geht ohne gleich Tmaskedit zu verwenden.


Gruss KH

[himitsu]

Zitat von SteffenSchm:

In der Unit Math gibt es (zumindest in Delphi2009) die Funktion...

sowas kann man sich mathematisch auch selber herleiten

MitZweiNachkommastellen := Round(R * 100) / 100; für 4 Nachkommastellen wäre es 10000, also 4 Nullen usw.
und über 'nen Logarithmus kann man sich das ganze auch noch aufbauen

Delphi-Quellcode:

gerundet := Round(R * IntPower(10, Nachkommastellen)) / IntPower(10, Nachkommastellen);

// bzw. 

temp := IntPower(10, Nachkommastellen);
gerundet := Round(R * temp) / temp;

aber in diesem Fall reicht ihm wohl eine der oben schon genannten StringFunktionen

[Gargoyl]

runden auf 2 Stellen nach dem Komma:
x:=round(x*100)/100; runden auf n Stellen nach dem Komma:
x:=round(x*(10^n))/(10^n); (x sollte vom Typ float o.Ä. sein und nicht integer)

mfg


Edit: Ups himitsu war schneller. (nur das mit dem Log10 versteh ich nicht, hab auch gerade kein Delphi installiert)

[khh]

Zitat von Gargoyl:

runden auf 2 Stellen nach dem Komma:
x:=round(x*100)/100; runden auf n Stellen nach dem Komma:
x:=round(x*(10^n))/(10^n); (x sollte vom Typ float o.Ä. sein und nicht integer)

mfg


Edit: Ups himitsu war schneller. (nur das mit dem Log10 versteh ich nicht, hab auch gerade kein Delphi installiert)

ich danke euch

gruss KH

[himitsu]

Log10 war ja das Gegenteil von 10^n ... ach mist

[add]
IntPower bzw. Power wär das Richtige gewesen
siehe Beitrag #7