Zahlen kürzen aber wie?

**hedie**

Hallo zusammen...

Ich würde gerne Zahlen kürzen.

Dazu ein Beispiel (alles integer)

Eingabe-Ausgabe

123 123
26 26
1956 1956
52632 2632 <- Vorderste Zahl abgeschnitten
445233 5233 <- Vordere zwei zahlen abgeschnitten

Dividieren ist keine Möglichkeit, da dadurch nur hintere Stellen wegfallen...

Hoffen jemand kennt eine lösung

**Sir Rufo**

Das macht man mit Modulo

markieren

Code:

153421 MOD 10000 = 3421

der Vollständigkeit halber noch der Verweis auf DIV

markieren

Code:

153421 DIV 10000 = 15

**hedie**

Vielen Dank! Es funktioniert

Nun noch eine kleine frage...

Wie kann man ohne muhsame IF abfragen voranführende nullen erzeugen?

So dass zb so gezählt wird

001
005
010
090
120
.
.
.

**Luckie**

Format

**DeddyH**

Format('%.3d',[DeineZahl])

**hedie**

Vielen Dank!

Klappt alles wunderbar

Zahlen kürzen aber wie?

Zahlen kürzen aber wie?

AW: Zahlen kürzen aber wie?

AW: Zahlen kürzen aber wie?

AW: Zahlen kürzen aber wie?

AW: Zahlen kürzen aber wie?

AW: Zahlen kürzen aber wie?

Forumregeln

Sir Rufo Registriert seit: 5. Jan 2005 Ort: Stadthagen 9.454 Beiträge Delphi 10 Seattle Enterprise	#2 AW: Zahlen kürzen aber wie? 26. Jan 2011, 15:09 Das macht man mit Modulo markieren Code: 153421 MOD 10000 = 3421 der Vollständigkeit halber noch der Verweis auf DIV markieren Code: 153421 DIV 10000 = 15 Kaum macht man's richtig - schon funktioniert's Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
	Zitat

hedie Registriert seit: 12. Dez 2005 Ort: Schweiz 1.024 Beiträge Delphi XE6 Starter	#3 AW: Zahlen kürzen aber wie? 26. Jan 2011, 15:18 Vielen Dank! Es funktioniert Nun noch eine kleine frage... Wie kann man ohne muhsame IF abfragen voranführende nullen erzeugen? So dass zb so gezählt wird 001 005 010 090 120 . . . Claudio Tu was du nicht lassen kannst - http://endasmedia.ch
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#4 AW: Zahlen kürzen aber wie? 26. Jan 2011, 15:19 Format Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.540 Beiträge Delphi 11 Alexandria	#5 AW: Zahlen kürzen aber wie? 26. Jan 2011, 15:19 Format('%.3d',[DeineZahl]) Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

hedie Registriert seit: 12. Dez 2005 Ort: Schweiz 1.024 Beiträge Delphi XE6 Starter	#6 AW: Zahlen kürzen aber wie? 26. Jan 2011, 15:29 Vielen Dank! Klappt alles wunderbar Claudio Tu was du nicht lassen kannst - http://endasmedia.ch
	Zitat