free pascal高手进来

来源：百度知道编辑：UC知道时间：2024/09/21 20:46:04

各位高手，请问有没有可以把string直接替换为整数的函数啊？
求求各位了，急啊~~~~~~~~~~~~~~~~~~~

val(s,a,b);
s为string
a为转换的值
b为若s中间有非数字的字串，该第一个字串的位置
由于string有长度限制（255），用的并非很广

val(st)
st为string的值
另给一个程序段：
for i:=1 to length(st) do
totaL:=total*10+ord(st[i])-ord('0');
这个程序段中st是字符串，total是替换的整数。

length可以求字符串的长度。
格式为：LENGTH（S：STRING）：INTEGER
求字符串S的长度，返回结果为整型。