随笔 - 2146  文章 - 97 评论 - 11761 trackbacks - 253

举例:
var
  s: string;
  i: Real;
  j: Integer;
begin
  s := '13.2435';
  Val(s,i,j);
  ShowMessage(FloatToStr(i));  {13.2435}
  ShowMessage(IntToStr(j));    {返回 0 表示转换成功}

  s := '13_2435';
  Val(s,i,j);
  ShowMessage(FloatToStr(i));  {13}
  ShowMessage(IntToStr(j));    {返回 3 表示第自三个字符转换失败}

  s := 'x132435';
  Val(s,i,j);
  ShowMessage(FloatToStr(i));  {0}
  ShowMessage(IntToStr(j));    {返回 1 表示转换失败}
end;

System 单元下的公用函数目录

posted on 2008-03-29 22:50 万一 阅读(...) 评论(...) 编辑 收藏