请问怎么把字符型转换为double型

Question

各位好！
    请问！
    在delphi里怎么把string 型转换为double型
    我用strtofloat方法去转换value assgined to 'msmoney' never used   其中'msmoney'是我设置的一个double型。
     同时在数据库用的是float型，要把一个string型插入数据库，或把 double型插入进去要做哪些转换事情？我用了strtofloat方法，不行。

Answer 1

function StrToFloat(const S: string): Extended;
begin
  if not TextToFloat(PChar(S), Result, fvExtended) then
    ConvertErrorFmt(@SInvalidFloat, [S]);
end;

Answer 2

可以的：
procedure TForm1.Button1Click(Sender: TObject);
var d:double;
begin
  try
    d:=strToFloat(edit1.text);
    edit2.text:=FloatToStr(d);
  except
  end;
end;

Answer 3

Luckyjan(小虾无招)  您好！
      你的方法不行啊！错误还是value assgined to 'msmoney' never used 和is not valid floating print value  怎么办呢？大家给我想想啦！
   或者看看这里怎么插入 在数据库用的是float型，要把一个string型插入数据库，或把 double型插入数据库，用什么办法？
谢谢大家了！