Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Zahl mit 1000er Trennpunkten ausgeben (https://www.delphipraxis.net/133779-zahl-mit-1000er-trennpunkten-ausgeben.html)

HolgerCW 8. Mai 2009 14:16


Zahl mit 1000er Trennpunkten ausgeben
 
Hallo zusammen,

ich habe eine String-Variabel in der Zahlen abgelegt werden. Diese können auch Kommastellen haben.

Wie kann ich diese String-Zahlen mit 1000er - Trennpunkten in eine andere String-Variabel schreiben ?

Gruss

Holger

3_of_8 8. Mai 2009 14:22

Re: Zahl mit 1000er Trennpunkten ausgeben
 
Wandle die Zahl in einen Gleitkommatypen (Single, Double, Extended) um (mit Delphi-Referenz durchsuchenStrToFloat) und benutze dann Delphi-Referenz durchsuchenFormat().

Luckie 8. Mai 2009 14:22

Re: Zahl mit 1000er Trennpunkten ausgeben
 
Wenn sie als Zeichenkette vorliegen, selber einfügen, wenn sie als Fließkommazahlen vorliegen mit der Funktion Delphi-Referenz durchsuchenFormat.

himitsu 8. Mai 2009 14:25

Re: Zahl mit 1000er Trennpunkten ausgeben
 
du könntest ja das Komma suchen und dann jeweils in abständen von 3 Zeichen nach links solange '.' einfügen, bis der String dort zuende ist, oder die Zahl aufhört.

oder z.B.
Delphi-Quellcode:
S := Format('%n', [StrToFloat(S)]);
(ich hoffe N war auch das Richtige)


[edit] ihr seid gemein *heul*

3_of_8 8. Mai 2009 14:25

Re: Zahl mit 1000er Trennpunkten ausgeben
 
Die Umwandlung in Format hat allerdings den Vorteil, dass Regionsoptionen mit einbezogen werden. Wenn man sowas will. (Außerdem ist es weniger Aufwand)

himitsu 8. Mai 2009 14:28

Re: Zahl mit 1000er Trennpunkten ausgeben
 
Zitat:

Zitat von 3_of_8
Die Umwandlung in Format hat allerdings den Vorteil, dass Regionsoptionen mit einbezogen werden.

Wenn man statt '.' und ',' die vorhandenen Variablen der SysUtils verwendet, dann würden diese auch mit einbezogen :angel:


Zitat:

Zitat von 3_of_8
(Außerdem ist es weniger Aufwand)

aber dafür würde man z.B. das Zahlenformat erhalten (z.B. fürheren/folgende Nullen und Sonstiges)

HolgerCW 8. Mai 2009 14:36

Re: Zahl mit 1000er Trennpunkten ausgeben
 
Mit himitsu's Lösung hats geklappt. Danke an alle ...


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:46 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz