Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

25th
Сен

Перевести 4-х байтное число из 16-го числа в дробное десятичное

Posted by Chas under Delphi

Как перевести 8 байтное число из 16-ричной системы в дробное десятичное

Stilet
Он имеет ввиду что порядок байт нужно переставить с точностью да наоборот. Первый байт должен быть считан с конца.
Я к примеру тоже в одном проекте вынужден переворачивать, и делаю это так:

// Функция переворачивающая 2-х байтовое слово

Function WordToStr(w:word):String;

 begin

  Result:=chr(lo(w))+chr(hi(w));

 end;
// Функция переворачивающая 4-х байтное значение

 Function DWordToStr(w:dword):String;

 var l,h:word;  s:string[4];

 begin

   asm

    mov eax,[w]

    mov [l],ax

    shr eax,16

    mov [h],ax

   end;

   Result:=WordToStr(l)+WordToStr(h);

 end;
 // Функция для перевода Double

 function QwordToStr(d:Double):string;

 type qw=array[1..8] of byte;

 var i:integer;

 begin   Result:='';

  for i:=1 to 8 do

   Result:=Result+char(qw(d));

 end;
  // Функция для перевода Extended 80-bit

 function TWordToStr(d:Extended):string;

 type qw=array[1..10] of byte;

 var i:integer;

 begin   Result:='';

  for i:=1 to 10 do

   Result:=Result+char(qw(d));

 end;