急询：如何将两个byte数值合成一个double值？？

Question

在VC中，doubleValue=(char)byteValue1*0x100+byteValue2,其中， byteValue1代表高8位，byteValue2代表低8位。
但是，类似的语句在delphi中编译通不过。
var
  byte1,byte2:Byte;
  dv:Double;
begin
  byte1:=1;
  byte2:=1;
  dv:=char(byte1)*0x100+byte2;
end;
请帮忙！

Answer 1

var
  byte1,byte2:Byte;
  dv:Double;
begin
  byte1:=1;
  byte2:=1;
  dv:=char(byte1) * $100 +byte2;
end;

Answer 2

var
  byte1,byte2:Byte;
  dv:Double;
begin
  byte1:=1;
  byte2:=1;
  dv:=byte1*16*16+byte2;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  byte1,byte2:Byte;
  dv:Double;
begin
  byte1:=1;
  byte2:=1;
  dv:=byte1* $100 +byte2;
  Caption:=FloatToStr(dv)
end;

Answer 4

谢谢，但是还存在另一个问题，如何将一个byte类型，强制转换成double型，如c中：(double)byteValue