QBasic zu Delphi

[himitsu]

arg ... ist mir jetzt auf die schnelle nicht aufgefallen, daß 240 = $F0 ist

Heißt also, daß
(wert AND 240) / 16 eigentlich nur
Trunc(wert / 16) entspricht.
Gab es in Basic denn keine Ganzzahlarrithmetic, wie den DIV-Operator in Delphi?

Quasi ist das gemeint
wert div 16 und in Basic wurde einfach die Zahl durch wert AND 240 so verändert, daß sie bei / 240 nur eine Ganze Zahl liefert, denn $10 (0000ffff+1 = 0001000) ist ja bekanntlich 16

[Medium]

Gut dass mir auch jetzt erst durch himitsus Beitrag auffiel, dass dann sogar "wert shr 4" völlig ausreicht. Das dürfte die schnellste und logisch am besten nachvollziehbare Übersetzung sein.

@QBasic: Der Integer-OP in QB ist "\". Den kannte der Originalautor wohl nicht. Was QB hingegen noch nicht kannte war Bitshifting.

[himitsu]

Ach, statt div 16 macht Delphi auch nur ein SAR 4 (Arithmetic-Shift).
Also schneller ist SHR dann nun auch nicht und man kann den Code auch so lassen.