想问一个字符串处理问题

Question

我想把字符串如21453.12356这样类型的 把小数点之前的数字和小数点之后的数字分别提取，并转换为实形变量21453  和12356  如该如何做啊？

Answer 1

var
  S : string;
  F1,F2 : double; //实型
begin
  S := '21453.12356';
  F1 := StrToFloat(Copy(S,1,Pos('.',S)-1));
  F2 := StrToFloat(Copy(S,Pos('.',S)+1,MaxInt));
  showmessage(floattostr(F1));
  showmessage(floattostr(F2));
end;

Answer 2

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