dword to два word

8 лет назад в Редактор каналов • обновлен 8 лет назад • 0

Как раскидать 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?

Голос

Ответы 0
Старые сверху
- Новые сверху
- Старые сверху

8 лет назад

День добрый.

Как раскидать 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.

Ответить
|

8 лет назад

т.к. DWORD, то пишем так

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

Ответить
|

8 лет назад

т.к. DWORD, то пишем так

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

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

Ответить
|

Сервис поддержки клиентов работает на платформе UserEcho