举例:
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 单元下的公用函数目录