如何将上面的3/8化成0.375呢?
我用如下尝试不行呀!
if strtofloat(label1.caption)<1 then
//还没有完成
else
//已经完成
我用如下尝试不行呀!
if strtofloat(label1.caption)<1 then
//还没有完成
else
//已经完成
解决方案 »
- 新手学Delphi要多长时间,前辈能提个建议吗(以前做过PB两个月)?
- ini文件存取问题
- '键列信息不足或不正确。更新影响到多行'是啥回事
- 关于语句的问题
- 这是Delphi版本的问题吗?
- HOOK如何遍历找到要输入的产品名称在下拉列表中的顺序
- 十万火急!!! ehlib25中的printdbgrid 如何设置横向打印。老板等着要,请帮助!!!
- 请推荐一本学DELPHI的好书!!
- 快来救命,高分相送(关于多媒体的),有没有好的相关控件,请给地址!
- DBgrid组件中移动记录时产生什么事件
- 求Twain.dll的中文函数说明文档,100分!!!不够还可再加!!!!!
- 各位推荐一下有什么中间件数据访问速度较快的。
szStr, getstr1, getstr2 : String;
iRec : Integer;
reNum : Real;
begin
szStr := '3/8';
iRec := pos('/',szStr);
getstr1 := copy(szStr,0,iRec-1);
getstr2 := copy(szStr,iRec+1,length(szStr)-iRec);
reNum := StrToInt(getstr1)/StrToInt(getstr2);
ShowMessage(FloatToStr(reNum));
end;