Convert(array of byte, real48)

Posted by maloy under Delphi, Архив

Ringess

Возникла такая проблема.. есть у меня array[0..5] of byte = ($8A, $77, $BE, $9F, $AA, $38);
и переменная типа real48 (существовала в делфи до 6-й версии, включительно).
Как мне преобразовать массив байтов в вещественное число типа real48?

Stilet

Ну если простое преобразование типов не катит то тупо перекинуть байты в переменку:

const a:array[0..5] of byte = ($8A, $77, $BE, $9F, $AA, $38);
var r:Real48;
begin
 Move(a[0],r,5);
end;

Впрочим у меня к этому коду прокатывает простое приведение типов:

r:=real48(a); 

Granus

1ый элемент + 2ой элемент * $100 (256) + 3ий элемент * $10000 + 4ый элемент * $1000000 + 5ый элемент * $100000000

тема на форуме от 2009 года

Случайные статьи

• Найти среднее число из трех
• Шаблон класса односвязной очереди в библиотеке STL
• Где вы храните сниппеты (куски кода)?
• Javascript который рисует таблицу безопасных цветов
• Какие бывают компиляторы на С++?
• Какой Linux посоветуете установить?
• Считывание двумерного массива из потока данных
• Работа с двумерными массивами (матрицами) средствами Delphi
• Выделение памяти
• Как смешать две картинки?