XProfan

English

Michael
Wodrich

The following Source from the Babyklappe should
from 2 übergebenen Integers one LongInt create:
- 1. worth = niederwertiger part
- 2. worth = höherwertiger part
Print $ + Hex$( MakeLong( $1234, $ABCD )) would means $ABCD1234 spend.
Compile Mark Separation

!Source wurde am 23.05.2006 in die Babyklappe auf XProfan.Com abgelegt:
Def MakeLong(2) Or(@&(1),Mul(@&(2),$10000))e>

...and the Gegenfunktionen should whom LongInt-worth into upper/downstairs Half decompose:
Compile Mark Separation

!Source wurde am 23.05.2006 in die Babyklappe auf XProfan.Com abgelegt:
Def HiWord(1) Div&(&(1),$10000)
Def LoWord(1) And(&(1),$FFFF)re>

there The singlelined functions abgeschafft go should,
would The direct Übernahme in XProfan meaningfully.

In of my with Operators written INC
stand these functions namely too drin:
Compile Mark Separation

!
Def MakeLong(2) %(1) + (%(2) << 16)
Def LoWord(1) &(1) & $FFFF
Def HiWord(1) &(1)  $10000pre>

Best wishes
Michael Wodrich

P.s.: Korrektur is now eingearbeitet...

Programmieren, das spannendste Detektivspiel der Welt.

05/31/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

Hello Michael, your example is something unhappy chosen, because there go from two byte (8-bit) one 16-bit-Integer made and not from two 16-bit-Integer one LongInt (32-bit).

so would it correctly:

Print $ + Hex$( MakeLong( $1234, $ABCD )) would means $ABCD1234 spend.

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

05/31/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Wodrich

Yes, The loves Nachtschichten...