Привет всем!!
Очень требуется помощь--есть прибор с которого по RS232 приходят данные "представленные в виде беззнаковых целых чисел или чисел с плавающей точкой(4 байта в формате IEEE754)"--никак не пойму как их перевести чтобы показать в программе--может кто сталкивался??????
Нашел два способа:
1)
Код:
const
FBuffer: array [0..3] of Byte = ($85, $65, $72, $B0);--то что нужно перевести
var
i: Integer;
s: String[4];
d: Single absolute s;
begin
for i := 0 to 3 do
s[i] := Char(FBuffer[i]);
ShowMessage(FloatToStr(d));
end;
2)
Код:
res:integer
mysinglep:PSingle;
mysingle:single;
begin
res:=StrToInt('$'+Edit1.Text);
mysinglep:=@res;
mysingle:=mysinglep^;
Label2.Caption:=FloatToStr(mysingle);
end;
Admin: Пользуемся тегами!
Но оба эти варианта дают разные значения и не те что нужно((((((