怎么把字符串‘12.3’转换为数字！再乘以100 得出1230这样的？

Question

怎么把字符串‘12.3’转换为数字！再乘以100 得出1230这样的？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
    showmessage(floattostr(strtoFloat('12.3')*100));
end;

Answer 2

showmessage(floattostr(strtofloat('12.3')*100));

Answer 3

你可以查看DELPHI的帮助的，有一个单元是专门介绍这个的。下面是我写的看看把。begin
  Edit1.text :=FloatToStr((StrToFloat('12.3')*100));
end;

Answer 4

var 
  s1 : String ;
  i  : Integer ;
begin
  s1 := '12.3';
  try 
   i  :=  strtofloat('12.3');
   i  :=  i * 100;
   s1 :=  floattostr(i);
  except
   s1 := '-1';
  end ;
end;

Answer 5

那么在转换怎么办？怎么把float类型的123转变为integer的123？

Answer 6

怎么办？怎么把float类型的123转变为integer的123？

Answer 7

浮点数转换为整数方法如下:
procedure TForm1.Button1Click(Sender: TObject);
var
    v_int:Integer;
    v_float:real;
begin
    v_float:=123;
    try
       v_int:=strtoInt(floattostr(v_float));
       showmessage(inttostr(v_int));
    except
       showmessage('转换失败')
    end;
end;

Answer 8

floattostr(strtofloat('12.3')*1000)
没有救啦，问出这种问题来，其实你应该自己多动一下脑筋

Answer 9

showmessage(floattostr(strtoFloat('12.3')*100));