Delphi-PRAXiS - Zahlen kürzen aber wie?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)

- - Zahlen kürzen aber wie? (https://www.delphipraxis.net/157835-zahlen-kuerzen-aber-wie.html)

hedie

26. Jan 2011 15:06

Zahlen kürzen aber wie?

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

26. Jan 2011 15:09

AW: Zahlen kürzen aber wie?

Das macht man mit Modulo

Code:

153421 MOD 10000 = 3421

der Vollständigkeit halber noch der Verweis auf DIV

Code:

153421 DIV 10000 = 15

hedie

26. Jan 2011 15:18

AW: Zahlen kürzen aber wie?

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

26. Jan 2011 15:19

AW: Zahlen kürzen aber wie?

Format

DeddyH

26. Jan 2011 15:19

AW: Zahlen kürzen aber wie?

Delphi-Quellcode:

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

hedie

26. Jan 2011 15:29

AW: Zahlen kürzen aber wie?

Vielen Dank!

Klappt alles wunderbar :)

Alle Zeitangaben in WEZ +1. Es ist jetzt 22:54 Uhr.