如何把科学计数法的数转成普通数字

Question

Var
  strTemp:String;
Begin 
  strTemp:='6e34';
 //把strTemp转成普通的数字
End;

Answer 1

StrToInt('$' + strTemp);
StrToIntDef('$' + strTemp, 0);

Answer 2

Var
  strTemp,s:String;
  a,b:int64;
  i:integer;
Begin
  strTemp:='6e34';
  //把strTemp转成普通的数字
  try
    strTemp:=lowercase(formatfloat('#,##0.00',strtofloat(strtemp)));
    a:=strtoint64(copy(strtemp,1,pos('e',strtemp)-1));
    b:=strtoint64(copy(strtemp,pos('e',strtemp)+1,maxint));
    s:='';
    for i:=1 to b do
    begin
      s:='0'+s;
      if i mod 3=0 then
        s:=','+s;
    end;
    showmessage(inttostr(a)+s);
  except
    showmessage(strtemp+'不是有效的科学计数表示方法！');
  end;
end;