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 года

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

• При нажатии enter добавить значение из edit в listbox
• Найти номера нечетных элементов, стоящих на четных местах массива
• Замена символов на латинские
• Как передать в первую форму из второй, какая из кнопок была нажата?
• Событие изменения формы вызывать только один раз
• ГРАФИКА В DELPHI
• Visual Basic. Подсчитайте, каково наибольшее количество одинаковых элементов следуют подряд в массиве.
• Всплывающее окно и фокус
• Создать zip\rar архив
• Поиск слова в Memo