再问一个字符串处理问题

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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