Auf- oder Abrunden mit Delphi

**smart**

Hi Alle,

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

Viele Grüße
Heike

**Whatever**

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:
Edit2.Text := IntToStr(round(StrToInt(Edit1.Text))); das klappt so nicht

**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:

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

**Luckie**

Was will man bei einem Integer runden?

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

**smart**

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

muss da nicht was in USES setehen?

**stahli**

@ Luckie: ich Dödel!

smart Registriert seit: 19. Dez 2004 Ort: Bochum 1.266 Beiträge Delphi 2007 Professional	#1 Auf- oder Abrunden mit Delphi 19. Sep 2010, 18:17 Hi Alle, wie kan man größere Zahlen mit Delphi auf- oder - abruden? Viele Grüße Heike Heike Kretschmann Viele Grüße aus Bochum kaum denkt man alles ist fertig, da fängt man wieder von Vorn an.
	Zitat

Whatever Registriert seit: 7. Jan 2009 Ort: 127.0.0.1 102 Beiträge	#2 AW: Auf- oder Abrunden mit Delphi 19. Sep 2010, 18:18 round(x: Real)
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#3 AW: Auf- oder Abrunden mit Delphi 19. Sep 2010, 18:20 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. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

smart Registriert seit: 19. Dez 2004 Ort: Bochum 1.266 Beiträge Delphi 2007 Professional	#4 AW: Auf- oder Abrunden mit Delphi 19. Sep 2010, 18:38 Was mache ich da falsch: Edit2.Text := IntToStr(round(StrToInt(Edit1.Text))); das klappt so nicht Heike Kretschmann Viele Grüße aus Bochum kaum denkt man alles ist fertig, da fängt man wieder von Vorn an.
	Zitat

fkerber (CodeLib-Manager) Registriert seit: 9. Jul 2003 Ort: Ensdorf 6.723 Beiträge Delphi XE Professional	#5 AW: Auf- oder Abrunden mit Delphi 19. Sep 2010, 18:41 Hi! Gibt es denn eine Fehlermeldung? Oder was funktioniert nicht? Liebe Grüße, Frederic Frederic Kerber
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.858 Beiträge Delphi 11 Alexandria	#6 AW: Auf- oder Abrunden mit Delphi 19. Sep 2010, 18:42 Oder Trunc(), Ceil(), RoundTo(), Floor(), ... Markus Kinzler
	Zitat

stahli Registriert seit: 26. Nov 2003 Ort: Halle/Saale 4.343 Beiträge Delphi 11 Alexandria	#7 AW: Auf- oder Abrunden mit Delphi 19. Sep 2010, 18:46 Hast Du einen ungültigen "Wert" im Edit (z.B. Leertext)? Dann probiere mal: Edit2.Text := IntToStr(round(StrToIntDef(Edit1.Text, 0))); Stahli http://www.StahliSoft.de --- "Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#8 AW: Auf- oder Abrunden mit Delphi 19. Sep 2010, 18:47 Was will man bei einem Integer runden? Ich vermute mal die Fehlermeldung lautet, dass die Datentype nicht passen. Es wird ein Real erwartet, aber die Funktion bekommt ein Integer. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

smart Registriert seit: 19. Dez 2004 Ort: Bochum 1.266 Beiträge Delphi 2007 Professional	#9 AW: Auf- oder Abrunden mit Delphi 19. Sep 2010, 18:48 Zitat von mkinzler: Oder Trunc(), Ceil(), RoundTo(), Floor(), ... muss da nicht was in USES setehen? Heike Kretschmann Viele Grüße aus Bochum kaum denkt man alles ist fertig, da fängt man wieder von Vorn an.
	Zitat

stahli Registriert seit: 26. Nov 2003 Ort: Halle/Saale 4.343 Beiträge Delphi 11 Alexandria	#10 AW: Auf- oder Abrunden mit Delphi 19. Sep 2010, 18:48 @ Luckie: ich Dödel! Stahli http://www.StahliSoft.de --- "Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
	Zitat