QBasic zu Delphi

[himitsu]

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

Heißt also, daß

Delphi-Quellcode:

(wert AND 240) / 16

eigentlich nur

Delphi-Quellcode:

Trunc(wert / 16)

entspricht.
Gab es in Basic denn keine Ganzzahlarrithmetic, wie den DIV-Operator in Delphi?

Quasi ist das gemeint

Delphi-Quellcode:

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]

:wall: 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. :angel: