AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Existieren Nachkomma-Stellen??

Ein Thema von lbccaleb · begonnen am 20. Jan 2009 · letzter Beitrag vom 20. Jan 2009
Antwort Antwort
Seite 1 von 2  1 2   
Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#1

Existieren Nachkomma-Stellen??

  Alt 20. Jan 2009, 16:10
HeyHo,


Kann mir einer sagen, wie ich herrausfinden kann ob eine Extended Variable Nachkomma-Stellen besitzt oder nicht??
Gibt es dafür direkt eine Funktion??

Das alles wieder nonVCL, also ohne Math und SysUtils...


Danke
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)
  Mit Zitat antworten Zitat
HenKst

Registriert seit: 7. Jul 2008
113 Beiträge
 
#2

Re: Existieren Nachkomma-Stellen??

  Alt 20. Jan 2009, 16:17
frac(x) gibt dir die Nachkommastellen eines extended zurück.
Das könntest du auf 0 prüfen.

ist allerdings in System, weiss nicht ob du das brauchen kannst^^

Aber sobald du mit einer Realzahl irgendwas gerechnet hast ist es ziemlich unwahrscheinlich das sie keine Nachkommastellen hat.
narf - not a real function
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

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

Re: Existieren Nachkomma-Stellen??

  Alt 20. Jan 2009, 16:22
Direkt auf 0 prüfen wird vermutlich in die Hose gehen, besser mit math.SameValue machen.

[edit] Was math mit VCL zu tun haben soll, entzieht sich meiner Kenntnis [/edit]
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
quendolineDD

Registriert seit: 19. Apr 2007
Ort: Dresden
781 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: Existieren Nachkomma-Stellen??

  Alt 20. Jan 2009, 16:30
Weil eben im erweiteren Begriffsverständnis von nonVCL auch die Minimierung der Dateigröße auf die Nichtverwendung ganzer Units(wie o.g. eben Math) abzielt.
Lars S.
Wer nicht mit der Zeit geht, geht mit der Zeit.
  Mit Zitat antworten Zitat
Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Existieren Nachkomma-Stellen??

  Alt 20. Jan 2009, 16:30
Zitat von DeddyH:

[edit] Was math mit VCL zu tun haben soll, entzieht sich meiner Kenntnis [/edit]
Ganz einfach, Sie verwendet wieder SysUtils...

Bei Frac(x) war ich auch schon... Nur dann kommt wieder eine Extended raus, das ist nicht gut...
Und diese dann zu runden, verfälscht das Ergebnis zu sehr ;-(
Oder kann ich da event. noch anders ne Integer draus machen??
Mit Trunc hatte ich auch probiert, liefert aber auch nicht das was ich will *grummel*

Was will ich genau??

Also, ich will eine Integer variable durch 100 teilen, dabei entsteht ja bekanntlich eine Extended Var.!
Nun will ich aber nur die Zahlen, die durch 100 teilbar sind und eine Ganzzahl ergeben weiterverarbeiten!

Hat jemand dafür eine gute lösung?
Vllt steh ich auch gerade nur auf dem Schlauch...
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.752 Beiträge
 
Delphi 10.4 Sydney
 
#6

Re: Existieren Nachkomma-Stellen??

  Alt 20. Jan 2009, 16:32
Hast Du dir schon mal div und mod angeschaut?

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

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

Re: Existieren Nachkomma-Stellen??

  Alt 20. Jan 2009, 16:32
Dann nimm doch mod.
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
HenKst

Registriert seit: 7. Jul 2008
113 Beiträge
 
#8

Re: Existieren Nachkomma-Stellen??

  Alt 20. Jan 2009, 16:43
bei frac kommt 0,NachkommastellenVonX raus
Wenn das 0 ist war deine zahl glatt teilbar, wenn das nicht 0 ist vielleicht auch^^

Aber ich würd auch sagen mod ist was du willst
narf - not a real function
  Mit Zitat antworten Zitat
Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#9

Re: Existieren Nachkomma-Stellen??

  Alt 20. Jan 2009, 16:46
mod ist genau richtig, danke...

Ich sag ja, steh nur schon wieder auf dem Schlauch, menno^^
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)
  Mit Zitat antworten Zitat
mr_emre_d
(Gast)

n/a Beiträge
 
#10

Re: Existieren Nachkomma-Stellen??

  Alt 20. Jan 2009, 17:23
if x/round(x) = 0 then
...

Edit:
if x/floor(abs(x)) = 0 then
wäre sicherer
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

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 16:42 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