如何将Char中的内容转换成double类型????

Question

如何将Char中的内容转换成double类型????
tmp:Array [0..500] of Char;
a : Double;
现在Tmp中的数据['1','5','1','3','2','3','2','1','5','5','1','6','1','5','4','5'...]
我现在要将1323转换成13.23该如何实现...

Answer 1

不明白什么意思var tempint:integer;tempint:=integer(tmp[1]);

Answer 2

var tempfloat:double;
code:integer;val(tempstr,tempfloat,code);if code=0 then //字符串转换成双精度型成功
    something:=tempfloat;

Answer 3

uses Dialogs;
var   I, Code: Integer;
begin
  { Get text from TEdit control }
  Val(Edit1.Text, I, Code);
  { Error during conversion to integer? }
  if Code <> 0 then
    MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0, mbOk);
  else
    Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I));end;