Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Gleitkommazahlen in integer konvertieren (https://www.delphipraxis.net/85812-gleitkommazahlen-integer-konvertieren.html)

DelphiManiac 5. Feb 2007 10:32


Gleitkommazahlen in integer konvertieren
 
Hallo,

ich habe folgendes Problem, ich besitze ein JVSpinEdit-Komponente,
die mir den Wert als Extended zurückgibt, (hier kann man nun Zahlen mit 2 Nachkommastellen einstellen.

Beispiel:
123,45

Nun will ich aus dieser 123,45 einen integer machen.

Mein Problem:

Das klappt nicht:
Delphi-Quellcode:
..
var
  ext:extended;
  ext:=JVSpinEdit.Value;
  ext:=ext*100.0;
  showMessage(intToStr(integer(ext));
// Wie mach ich die Konvertierung am besten?? über FloatToStr und dann wieder StrToInt???
Danke vielmals

Matze 5. Feb 2007 10:36

Re: Gleitkommazahlen in integer konvertieren
 
Hi,

da ein Integer keine Nachkommastellen besitzen kann, musst du runden (Delphi-Referenz durchsuchenround, Delphi-Referenz durchsuchentrunc). Ein Typecast könnte auch klappen (Integer()), aber ich weiß es nicht genau.

Edit: Ah du versuchst ja den Typecast, dann geht das wohl nicht.

fwsp 5. Feb 2007 10:36

Re: Gleitkommazahlen in integer konvertieren
 
warum benutzt du nicht einfach die delphi-eigenen funktionen wie Trunc und Round? einafch mal in der hilfe nachgucken.
//Edit1
immerhin zweiter ;)

DelphiManiac 5. Feb 2007 10:40

Re: Gleitkommazahlen in integer konvertieren
 
Hey Danke euch,

ja trunc und round sind genau die Funktionen die ich gesucht habe...

Ich guck mir das in der OH mal an, und falls ich dann noch fragen habe melde ich mich bei euch.
// Edit: Rechtscheibfehler verbessert :-)
Gruß
DelphiManiac


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:21 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