[求助]如何将百分(%)数转换为float?(10分)

  • 主题发起人 主题发起人 dawnsoft
  • 开始时间 开始时间
D

dawnsoft

Unregistered / Unconfirmed
GUEST, unregistred user!
如 20% 转为浮点型(即0.2)。用什么函数?
 
去掉百分号,再除以100。
 
自己写个函数吧;
pos(str,'%');
copy(1,1,length(str)-1);
i:=strtoint(str)/100;
 
ilen:=length(str);
sTmp:=copy(str,1,ilen-1);
f:=StrToFloat(sTmp)/100.0;
 
dstr:='20%';
f:=0.01*StrToFloat(copy(dstr,1,pos('%',dstr)-1));
 
难道没有函数可以直接转换吗?
 

Similar threads

回复
0
查看
994
不得闲
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
915
SUNSTONE的Delphi笔记
S
D
回复
0
查看
780
DelphiTeacher的专栏
D
后退
顶部