Edit1.Text := Copy(str, 1, 1) + FloatToStr(StrToFloat(Trim((Copy(str,5,1))))) + '.'+ FloatToStr(StrToFloat(Trim((Copy(str,6,1)))));
因为FloatToStr(StrToFloat(Trim((Copy(str,1,5))))) =0 ,0值无符号。所以你的值为0.2了。 你的代码,就改为: 如果确定Str最后一位是小数位: str:= '-00002'; Str:=Copy(Str,1,length(Str)-1)+'.'+Copy(Str,length(Str),1); Edit1.Text := FloatToStr(StrToFloat(Str));
1,183
社区成员
14,336
社区内容
加载中
试试用AI创作助手写篇文章吧