再问一个字符串处理问题

[fonganzen]

想在问一下如字符串为5231.50030000000点后面没用的0去掉而把5003取出来转换为实型啊 谢了

[lihuasoft]

var
S : string;
Str : string;
begin
S := '5231.56000';
Str := floatToStr(StrToFloat(S));
showmessage(Str);
end;

[lihuasoft]

var
S : string;
Str : string;
F : double;
begin
S := '5231.50030000000';
F := StrToFloat(S);//实型
Str := floatToStr(F);
showmessage(Str);
end;

[lihuasoft]

楼主这个问题，在上一贴里结贴后问我，我已给回了；又发站内短信问我，我也回了；忽然又看见这贴......

难道楼主上一贴没看懂我用这两个函数转换吗？一样的道理！老是问同样的问题，建议你不只是关心结果，而是学会领会。

不过，及时结贴，说明你作风很好。

[fonganzen]

lihuasoft 你好！请问字符串中有小数点也能用strtofloat函数吗？如果中间的.是。或其他符号怎么解决呢。

[lihuasoft]

var
S : string;
Str : string;
begin
S := '5231。56000';
S := StringReplace(S,'。','.',[rfReplaceAll]);
Str := floatToStr(StrToFloat(S));
showmessage(Str);
end;

[lihuasoft]

请问字符串中有小数点也能用strtofloat函数吗？
-----------------------------------------
是的，实型本来就需要有小数点的

[fonganzen]

谢谢啦