Siehe:
Code: Alles auswählen
#Start = 2147483647*2
z.q = #Start
s.l = 1
Repeat
f.f = z
If IntQ(f) = z
Debug Str(s) + "." + StrQ(z)
s + 1
EndIf
z + 1
Until z = #Start + 20000
Aber wir sollten das jetzt so langsam lassen

Code: Alles auswählen
#Start = 2147483647*2
z.q = #Start
s.l = 1
Repeat
f.f = z
If IntQ(f) = z
Debug Str(s) + "." + StrQ(z)
s + 1
EndIf
z + 1
Until z = #Start + 20000
Code: Alles auswählen
;Float
a.l=16777216
b.l=1
c.l=a+b
Debug c
a1.f=16777216 ;Bei Float (Single) grösste sicher darstellbare Zahl
b1.f=1
c1.f=a1+b1
Debug c1
;Double
a2.q=9007199254740992
b2.q=1
c2.q=a2+b2
Debug c2
a3.d=9007199254740992 ;Bei Double grösste sicher darstellbare Zahl
b3.d=1
c3.d=a3+b3
Debug c3
Code: Alles auswählen
Procedure test()
q.q = 12345678
d.d = q
EndProcedure
a = test() ;diese Zeil auch mal auskommentieren
Debug test()
Code: Alles auswählen
Procedure test()
q.q = 12345678
d.d = PeekQ(@q )
EndProcedure
a = test() ;diese Zeil auch mal auskommentieren
Debug test()