Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Kommastellen löschen (https://www.delphipraxis.net/140774-kommastellen-loeschen.html)

1nfinity 13. Okt 2009 16:31

Re: Kommastellen löschen
 
hey
und wie kann ich das machen das bei der zahl z.B. 630,23 nur das 630 übergeben wird ??

danke

DeddyH 13. Okt 2009 16:33

Re: Kommastellen löschen
 
Mit Floor() denke ich mal.

[edit] Oder handelt es sich um einen String? [/edit]

Klaus01 13. Okt 2009 16:34

Re: Kommastellen löschen
 
Zitat:

Zitat von 1nfinity
hey
und wie kann ich das machen das bei der zahl z.B. 630,23 nur das 630 übergeben wird ??

danke

welches von den obigen Beispielen verstehst Du denn nicht?

Grüße
Klaus

1nfinity 13. Okt 2009 16:35

Re: Kommastellen löschen
 
ja ist ein string danach wird es zu float

habe das so:
for j := 1 to 1 do
delete (str,1,pos(',',str));

hier kriege ich von den 630,32 die 32 raus
möchte aber die 630

DeddyH 13. Okt 2009 16:38

Re: Kommastellen löschen
 
Die For-Schleife ist aber irgendwie sinnbefreit :mrgreen:

[edit]
Delphi-Quellcode:
Delete(str,Pos(',',str),Length(str));
oder
Delphi-Quellcode:
str := copy(str,1,Pos(',',str) - 1);
[/edit]

himitsu 13. Okt 2009 16:39

Re: Kommastellen löschen
 
Du kannst via Delphi-Referenz durchsuchenPos das Komma suchen und über Delphi-Referenz durchsuchenDelete den Nachkommateil abschneiden oder via Delphi-Referenz durchsuchenCopy den ganzzahligen Zeil rauskopieren.

Oder erstmal alles in einen Float umwandeln und dann via Delphi-Referenz durchsuchenFloor den Nachkommaanteil abschneiden.

1nfinity 13. Okt 2009 16:46

Re: Kommastellen löschen
 
super danke dir
:gruebel: ja die for-schleife ist doof...
wird zeit das ich Feierabend mache


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:12 Uhr.
Seite 2 von 2     12   

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