Диапазон при оценке констант

Question

Я бегу в много предупреждений компилятора:

Диапазон проверки ошибок при оценке констант

для подобных заявлений по всей моей программе.

TxMsg - это байт.

GetRegs (0) возвращает результат данных типа WORD.

TxMsg[0] := (GetRegs(0) shr 8) and $0F; 

То, что я обнаружил в своем исследовании, что эта ошибка вызвана неявными типажами и что вам нужно преобразовать int64 типа в QWORD. Если да, то как вы это делаете в моей строке кода.

ОБНОВЛЕНИЕ:

fRegs: Array [0..20] из SmallInt;

TxMsg: массив [0..8] байта;

function GetReg(reg:Integer):word; 
begin 
    if reg <= RegCnt then 
     result:=fRegs[reg]; 
end; 

Answer 1

Вы говорите, что задействованы «байт» и «слово». Оба уже без знака, поэтому я не знаю, что с ним делают int64 и qword.

Чтобы подавить предупреждение, просто трудно привести результат слова выражения к байту:

TxMsg[0] := byte((GetRegs(0) shr 8) and $0F);