Existieren Nachkomma-Stellen??

[lbccaleb]

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

[HenKst]

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.

[DeddyH]

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 :gruebel: [/edit]

[quendolineDD]

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.

[lbccaleb]

Zitat:

Zitat von DeddyH

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

[Klaus01]

Hast Du dir schon mal div und mod angeschaut?

Grüße
Klaus

[DeddyH]

Dann nimm doch mod.

[HenKst]

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 :)

[lbccaleb]

mod ist genau richtig, danke...

Ich sag ja, steh nur schon wieder auf dem Schlauch, menno^^

[mr_emre_d]

if x/round(x) = 0 then
...

Edit:
if x/floor(abs(x)) = 0 then
wäre sicherer