请高手指点！！！！

Question

var
  Str : String;
  Num : Double;
begin
  Str := '123.1321321';
  Num := StrToFloat(Str );
end;转化后Num 为什么是 0 啊 ， 想不通？
请高手指点！！！！  

Answer 1

我试了
procedure TForm1.Button1Click(Sender: TObject);
var
  Str : String;
  Num : Double;
begin
  Str := '123.1321321';
  Num := StrToFloat(Str );
  showmessage(FloatToStr(Num));
end;怎么不是0？？？

Answer 2

我是想问问这样的 
var
  i          : Integer;
  Str        : String;
  viewstring : String;
  SendBuf    : Array[1..8] of Byte;
  SendValueRX: Double;
begin
  Str := '123.1321321';
  SendValueRX:=StrToFloat(Str);
  Move(pchar(@SendValueRX)^,Pchar(@SendBuf)^,8);  for i:=1 to 8 do
  begin
    viewstring:=viewstring+IntToHex(SendBuf[i],2)+ ' ';
  end;
  ShowMessage(viewstring);
end;结果是 0 不过是我的 错误 哈哈 现在已经解决了  谢谢了