dword to два word

Avatar
  • обновлен
Как раскидать dword в два ворда
[spoiler]
{Пример Pascal Script} Var word1,word2,word3: word; Begin {имеем дворд 419497952 } word1:=419497952; word2:=419497952 div 65536; WriteValue('U1-word1',word1); WriteValue('U1-word2',word2); end. [/spoiler]
Как получить ворд1?
Avatar
SIMP Tech (Сергей)
День добрый.

Как раскидать dword в два ворда

примерно так:

var word1, word2, wordsource: word; begin // DWORD 419497952 wordsource := 419497952; word1 := wordsource and $FFFF; word2 := wordsource shr 16; WriteValue('U1-word1', word1); WriteValue('U1-word2', word2); end.
Avatar
vik
т.к. DWORD, то пишем так

word1 := wordsource and $FFFF;
спасибо за совет.
Avatar
SIMP Tech (Сергей)
т.к. DWORD, то пишем так

word1 := wordsource and $FFFF;
спасибо за совет.

Да, все верно. Это я недоглядел. Спасибо. (в примере исправил)