主题:高手請幫忙實現一個將5%轉換為float的函數
aikede
[专家分:0] 发布于 2006-10-21 16:48:00
高手請幫忙實現一個將5%轉換為float的函數,謝謝,急用
回复列表 (共1个回复)
沙发
zaliang [专家分:1010] 发布于 2006-11-04 14:55:00
function Convert(str:string):double;
var Tmp:string;
begin
tmp:=copy(str,1,length(str)-1);
result:=strtofloat(tmp)/100;
end;
我来回复