Как сделать фунцкию LoWord()?

← →
Ptr_Suspend (2013-11-07 18:17) [0]

Есть HiWord() и её тело.
LoWord() - сделано через приведение типа.
Перевожу код на AS3, там этих функций нет.
Не могу найти реализацию LoWord().

← →
Rouse_ © (2013-11-07 18:25) [1]

Как-то так...
Result := Value and $FFFF; // LoWord
Result := (Value shr 16) and $FFFF; // HiWord

← →
Novice3432 (2013-11-07 18:25) [2]

Может HelloWorld? ;)

← →
Ptr_Suspend (2013-11-07 18:33) [3]

> Rouse_ © (07.11.13 18:25) [1]
>
> Как-то так...
> Result := (Value shr 16) and $FFFF; // HiWord

Из Windows.pas:

function MakeLong(A, B: Word): Longint; begin Result := A or B shl 16; end; function HiWord(L: DWORD): Word; begin Result := L shr 16; end;

← →
Rouse_ © (2013-11-07 18:36) [4]

> Ptr_Suspend (07.11.13 18:33) [3]

Это одно и тоже...

← →
Ptr_Suspend (2013-11-07 18:42) [5]

> Rouse_ © (07.11.13 18:36) [4]
>
>
> > Ptr_Suspend (07.11.13 18:33) [3]
>
> Это одно и тоже...

Некрасиво как-то выглядит.

>Некрасиво как-то выглядит.

За красотой - в Лувр.

Как сделать фунцкию LoWord()? Найти похожие ветки