Auf- oder Abrunden mit Delphi

[smart]

Hi Alle,

wie kan man größere Zahlen mit Delphi auf- oder - abruden?

Viele Grüße
Heike

[Whatever]

Delphi-Quellcode:

round(x: Real)

[Luckie]

Such mal im Forum nach "runden". Ich glaube round macht einige Probleme. Interessant wären für dich eventuell noch die Funktionen ceil und floor.

[smart]

Was mache ich da falsch:

Delphi-Quellcode:

Edit2.Text := IntToStr(round(StrToInt(Edit1.Text)));

das klappt so nicht :cry:

[fkerber]

Hi!

Gibt es denn eine Fehlermeldung?
Oder was funktioniert nicht?


Liebe Grüße,
Frederic

[mkinzler]

Oder Trunc(), Ceil(), RoundTo(), Floor(), ...

[stahli]

Hast Du einen ungültigen "Wert" im Edit (z.B. Leertext)?
Dann probiere mal:

Delphi-Quellcode:

Edit2.Text := IntToStr(round(StrToIntDef(Edit1.Text, 0)));

[Luckie]

Was will man bei einem Integer runden? :roll:

Ich vermute mal die Fehlermeldung lautet, dass die Datentype nicht passen. Es wird ein Real erwartet, aber die Funktion bekommt ein Integer.

[smart]

Zitat:

Zitat von mkinzler (Beitrag 1050604)

Oder Trunc(), Ceil(), RoundTo(), Floor(), ...

muss da nicht was in USES setehen?

[stahli]

@ Luckie: ich Dödel!

[Namenloser]

Zitat:

Zitat von Luckie (Beitrag 1050607)

Was will man bei einem Integer runden? :roll:

Ich vermute mal die Fehlermeldung lautet, dass die Datentype nicht passen. Es wird ein Real erwartet, aber die Funktion bekommt ein Integer.

Umgekehrt. Es macht zwar keinen Sinn, aber man kann schon einen Integer an round() übergeben - der wird dann impliziert in Real konvertiert. round() gibt allerdings wiederum einen Real-Wert zurück, und damit kann IntToStr() nichts anfangen.

[Luckie]

Zitat:

Zitat von smart (Beitrag 1050608)

Zitat:

Zitat von mkinzler (Beitrag 1050604)

Oder Trunc(), Ceil(), RoundTo(), Floor(), ...

muss da nicht was in USES setehen?

Steht in der Hilfe.

[mkinzler]

Ceil() + Floor() sind in Unit Math
Int(), Round(), Trunc() in der Unit System (welche automatisch engebunden wird)

[Luckie]

Zitat:

Zitat von NamenLozer (Beitrag 1050611)

Zitat:

Zitat von Luckie (Beitrag 1050607)

Was will man bei einem Integer runden? :roll:

Ich vermute mal die Fehlermeldung lautet, dass die Datentype nicht passen. Es wird ein Real erwartet, aber die Funktion bekommt ein Integer.

Umgekehrt. Es macht zwar keinen Sinn, aber man kann schon einen Integer an round() übergeben - der wird dann impliziert in Real konvertiert. round() gibt allerdings wiederum einen Real-Wert zurück, und damit kann IntToStr() nichts anfangen.

OK, trotzdem ist es sinnlos einen Integer runden zu wollen. ;)

[smart]

vielen lieben Dank an Euch Allen.

[smart]

Zitat:

Zitat von Luckie (Beitrag 1050615)

OK, trotzdem ist es sinnlos einen Integer runden zu wollen. ;)

Das braucht man im kaufmännischen Bereich.

[Luckie]

Und was willst du bei 12345 runden?

[mkinzler]

Vielleicht auf die nächsten 50, 100, 500, 1000?

[smart]

Zitat:

Zitat von mkinzler (Beitrag 1050621)

Vielleicht auf die nächsten 50, 100, 500, 1000?

genau.

[Luckie]

Aber nennt man das denn noch runden? :gruebel: Runden kenne ich nur für Nachkommastellen. Und funktioniert das überhaupt mit round?

[mkinzler]

Ja nennt man auch Runden. Das kann man durch Verschieben des Wertebereiches erzielen:

Delphi-Quellcode:

 Zahl := Round( Zahl / 100) * 100;

[smart]

Zitat:

Zitat von Luckie (Beitrag 1050623)

Aber nennt man das denn noch runden? :gruebel: Runden kenne ich nur für Nachkommastellen. Und funktioniert das überhaupt mit round?

Wie das funktioniert bin ich noch am testen. Kaufmännisch braucht man z.B. 12345 -> 13000.

[himitsu]

Math.RoundTo

[mkinzler]

Hier würde ich eher 12000 erwarten

[smart]

Zitat:

Zitat von mkinzler (Beitrag 1050630)

Hier würde ich eher 12000 erwarten

Ok, das habe ich mich jetzt verhauen. Sorry.

[himitsu]

Zitat:

Zitat von OH

Anmerkung: Die Funktionsweise von Round/RoundTo kann mit der Prozedur Set8087CW oder der Funktion SetRoundMode gesteuert werden.

beep

[mkinzler]

Mit Ceil() würde es auch gehen:

Delphi-Quellcode:

Ceil( 12345 / 1000) * 1000

sollte 13000 ergeben

[himitsu]

Oder mit Trunc

Delphi-Quellcode:

Trunc((12345 + 999) / 1000) * 1000

:stupid: