procedure TForm1.Button1Click(Sender: TObject);
var g:integer;
a:double;
begin
g:=strtoint('$'+'18110002');
a:=g*60/53687091;
edit1.Text:=floattostr(a);
end;
结果显示-28.7548806844461???
var g:integer;
a:double;
begin
g:=strtoint('$'+'18110002');
a:=g*60/53687091;
edit1.Text:=floattostr(a);
end;
结果显示-28.7548806844461???
解决方案 »
- 如何生成一个 -5到 0 的随机数
- 用TMediaPlayer循环播放背景音乐的问题, 附原码,高分求解
- 一个关于截获异常的问题!!!!!!急!在线等!!!
- 用控件如何发送邮件中的附件
- Tree结点如下增加其Data,如何读出来?
- 老天,问个关于idhttp1上传文件到服务器的问题
- 请高手指点会delphi好找工作吗?在哪里好找请说真心话
- 我想用api函数kill掉oicq,可是,oicq的窗口标题是不定的。怎么办?
- 如何将PChar类型转为String类型?
- 用nmftp 如何上传整个目录?
- 急,请问在xp下怎样屏蔽“power”关机键。win2k下阻截WM_POWERBROADCAST消息就行,但是xp下不行。
- dispose一个pointer类型的变量,能否释放干净?
var g:integer;
a:double;
begin
g:=strtoint('$'+'18110002');
a:=g/53687091 *60; //g*60 后溢出了
edit1.Text:=floattostr(a);
end;
2。
你像我上面改的那样也可以,
先除再乘
就不会溢出了