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 单元下的公用函数目录
举例:
转载于:https://my.oschina.net/hermer/blog/319714