Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.078 c