freepascal.ru

Код: Выделить всё

type TArrReal = array[0..9] of byte;


//===============================================

{Функция производит разбиение вещественного числа inReal на байты, которые размещает в массиве bytes, и возвращает количество байт, которое занимает переменная inReal}

function RealToByte(inReal : single;var bytes:TArrReal ):integer;

var i : integer;

begin

  i:=sizeof(inReal);

  move(inReal,bytes,i);

  result:=i;

end;

Код: Выделить всё

type TArrReal = packed array[0..7] of byte;

zub писал(а):

Код: Выделить всё

type TArrReal = packed array[0..7] of byte;

Код: Выделить всё

type
  TBytes8 = array[0..7] of Byte;

function Double2Bytes(d: Double): TBytes8;
var
  r: TBytes8 absolute d;
begin
  Result := r;
end;

function Bytes2Double(a: TBytes8): Double;
var
  r: Double absolute a;
begin
  Result := r;
end;


Код: Выделить всё

type
  TBytes8 = array[0..7] of byte;
  PBytes8 = ^TBytes8;

var
  d: Double;
  a: TBytes8;

  d := 1.11E10;
  a := PBytes8(@d)^;


iskander писал(а):type
TBytes8 = array[0..7] of Byte;

function Double2Bytes(d: Double): TBytes8;
var
r: TBytes8 absolute d;
begin
Result := r;
end;

Владимир писал(а):Так и должно быть?