формирование числа со знаком

← →
dm37 (2004-03-23 06:53) [0]

Подскажите пожалуйста, есть
Byte_LO: byte;
Byte_HI: byte;

Необходимо получить smaillint (со знаком);
потом полученное значение разделить на 10, т.е. получить тип real или подобное.
Как это можно сделать?

← →
Яичница © (2004-03-23 07:20) [1]

Нуу.... например, так

var
ByteLo:byte;
ByteHi:byte;
IntVal:SmallInt;
RealVal:Real;
begin

ByteLo:=$E7;
ByteHi:=$F5; //-2585
IntVal:=Integer(Word(ByteHi) shl 8 or ByteLo) ;
RealVal:=IntVal/10;

← →
TUser © (2004-03-23 07:54) [2]

Можно ручками типа так
YourInt:=Byte_hi*256+byte_lo;
Или в памяти организовыать массив из 2х байтов, а для интегера прописать absolute YourArray.

← →
dm37 (2004-03-23 10:24) [3]

Спасибо, помог первый вариант.

формирование числа со знаком Найти похожие ветки