AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Zahlen kürzen aber wie?

Ein Thema von hedie · begonnen am 26. Jan 2011 · letzter Beitrag vom 26. Jan 2011
Antwort Antwort
hedie

Registriert seit: 12. Dez 2005
Ort: Schweiz
1.024 Beiträge
 
Delphi XE6 Starter
 
#1

Zahlen kürzen aber wie?

  Alt 26. Jan 2011, 15:06
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
Claudio
Tu was du nicht lassen kannst
- http://endasmedia.ch
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

AW: Zahlen kürzen aber wie?

  Alt 26. Jan 2011, 15:09
Das macht man mit Modulo
Code:
153421 MOD 10000 = 3421
der Vollständigkeit halber noch der Verweis auf DIV
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)
  Mit Zitat antworten Zitat
hedie

Registriert seit: 12. Dez 2005
Ort: Schweiz
1.024 Beiträge
 
Delphi XE6 Starter
 
#3

AW: Zahlen kürzen aber wie?

  Alt 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
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

AW: Zahlen kürzen aber wie?

  Alt 26. Jan 2011, 15:19
Delphi-Referenz durchsuchenFormat
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.557 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Zahlen kürzen aber wie?

  Alt 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
  Mit Zitat antworten Zitat
hedie

Registriert seit: 12. Dez 2005
Ort: Schweiz
1.024 Beiträge
 
Delphi XE6 Starter
 
#6

AW: Zahlen kürzen aber wie?

  Alt 26. Jan 2011, 15:29
Vielen Dank!

Klappt alles wunderbar
Claudio
Tu was du nicht lassen kannst
- http://endasmedia.ch
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz