Pascal中字符串到整数的转换，怎么做？

Question

如何将字符串中打印的数字转换为整数？

谢谢。

Answer 1

is 过程 Val：

procedure Val(S; var V; var Code: Integer);

该过程对十进制数和实数进行操作。

参数：

• S 字符序列；为了正确转换，它必须包含“+”、“-”、“,”、“.”、“0”..“9”。
• V 转换结果。如果结果是整数，则 S 不能包含 ',', '.'。
• C 返回 S 中中断转换的字符的位置。

用例：

Var Value :Integer;

Val('1234', Value, Code);  // Value = 1234, Code = 0
Val('1.234', Value, Code); // Value = 0, Code = 2
Val('abcd', Value, Code);  // Value = 0, Code = 1

Answer 2

 Textval := '123';
    Val(Textval, Number, Code)  ---> Code = 0, Number = 123

   Textval := '12345x2';
   Val( Textval, Number, Code)  ---> Code = 6,  Number remains unchanged;

Val( TextVal, Number , Code) 将字符串转换为数字。
如果可能，则代码的结果 = 0，否则错误指示编号。

Answer 3

自 ISO 标准 10206“扩展 Pascal”以来，过程 readStr 已内置到编程语言中。
它在功能上相当于 read/readLn 与 text 文件结合使用（除了没有 text 文件）需要）。
这意味着前导空格将被忽略，后跟一个有效的整数文字，该文字以空格或简单的字符串末尾结尾。
示例：

program readStrDemo(output);
    var
        n: integer;
    begin
        readStr('  +1234 Hello world!', n);
        writeLn(n) { prints 1234 }
    end.

与 Borland Pascal 的 val 过程相比 但是，您无法发出用户友好的错误消息，特别是哪个（第一个）字符引起了麻烦。
Pascal 的内置 read、readLn 和 readStr 过程完全失败，具体细节取决于处理器。
另一方面，read、readLn 和 readStr 是标准化的，因此不存在供应商锁定。

请注意，除了读取十进制 integer 文字之外，read/readLn/readStr 还可以解析任何 整数在 Pascal 源代码中合法的 文字，包括带基数前缀的 integer 文字，例如 16#FF (255)。

Answer 4

您可以使用 Val 函数。

例子：

var
   sNum: String;
   iNum: Integer;
   code: Integer;

begin
   s := '101';
   Val(s, iNum, code); 
end.

Answer 5

你可以像这样使用，

var

i: integer;
s: string;
begin
str(i, s);
write(i);