Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/TOOL_INC.ZIP/STOF.INC

Text File | 1988-01-29 | 444 b | 26 lines

function stof(B: single): real;
   {convert 4 byte single to real}
var
   PasReal:  real;
   R: array [0..5] of byte absolute PasReal;
begin
   R[0] := B[3];
   R[1] := 0;
   R[2] := 0;
   move(B[0],R[3],3);
   stof := PasReal;
end;


procedure ftos(PasReal: real; var B: single);
   {convert real to 4 byte single}
var
   R: array [0..5] of byte absolute PasReal;
begin
   B[3] := R[0];
   move(R[3],B[0],3);
end;