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

[Skail]

Привет всем. Как перевести из 16-го числа в дробное десятичное. Например есть число A027AFDF5D984840 из него получаем 49.1903648. Знаю что в C# есть такая функция BitConverter.ToDouble, а как реализовать это на Delphi?

[WhiskasTM]

procedure TForm1.Button1Click(Sender: TObject);
const
d8: array [0..7] of byte = ($A0,$27,$AF,$DF,$5D,$98,$48,$40);
var
D:double;
begin
  D:=Double(d8);
  showmessage(floattostr(D));
end;

только что попробовал сделать функцию компилятор кричит на invalid typecast, Incompatible types, 'OF' expected but '[' found, ещё и сказал что setlength несовместим с динамическим массивом

[Skail]

WhiskasTM, спасибо большое, помог.

[Serge_Bliznykov]

Сообщение от WhiskasTM

только что попробовал сделать функцию компилятор кричит на invalid typecast, Incompatible types, 'OF' expected but '[' found, ещё и сказал что setlength несовместим с динамическим массивом

вы похоже перепутали "динамический массив" (dynamic arrays) с "открытым массивом" (open arrays)

в Pascal (ещё в те далёкие времена, когда динамических массивов и в помине не было) разработчиками компилятора было сделано следующее улучшение. в функции описывался т.н. "открытый массив" - это статический массив, являющий ПАРАМЕТРОМ процедуры/функции, размеры которого НЕ ОПИСЫВАЛИСЬ.

выглядело это так:

function SumArr(MyMassiv : array of integer) : integer;
var
  i, sm : integer;
begin
  sm := 0;
  for i:=Low( MyMassiv ) to High( MyMassiv ) do
    sm := sm + MyMassiv[i];
  SumArr := sm
end;

var 
  A : array[1..10] of integer;
  B : array['a'..'z'] of integer;
  i : integer;
  ch : char;
begin
  {заполним массив A}
  for i:=1 to 10 do A[i] := i;

  {заполним массив B константой 1}
  for ch:='a' to 'z' do B[ch] := 1;

  WriteLn('Сумма элементов массива A = ', SumArr( A ));

  WriteLn('Сумма элементов массива B = ', SumArr( B ));

  readln;

end.

в вашем же случае нужно определить свой тип и именно его использовать в процедуре функции. И, кстати, тут никаких динамических массивов и близко не нужно. если Вы определите массив длины, отличной от размерности Double - то получите или ошибку при компиляции/выполнении, либо, что ещё хуже - полный мусор (бред) при попытке конвертации нескольких байт в Double...

это будет выглядеть примерно так:

type MyDoubleArray = array [0..7] of byte;

function ConvertArrayToDouble(const d8 : MyDoubleArray) : double;
begin
  result := Double(d8);
end;

procedure TForm3.Button1Click(Sender: TObject);
const
  dd1 : MyDoubleArray = ($A0,$27,$AF,$DF,$5D,$98,$48,$40);
  dd2 : MyDoubleArray = ($B0,$21,$A0,$D0,$11,$12,$12,$40);
begin
  showmessage(floattostr( ConvertArrayToDouble( dd1 )));
  showmessage(floattostr( ConvertArrayToDouble( dd2 )));
end;