如何将由空格分隔的数字字符串加载到数组中？

Question

我需要创建一个程序，其中第一个像输入一样我将字符串中的数字用空格分隔，而在第二行我将输入它们（例如1 2 3 4 5 6）。所以我尝试使用Val，但它无法帮助我，因为有空格，我也不能用，因为数字在一行。数字也不必是一个数字，它们是从1到10 ^ 9。

Answer 1

这是原则：让我们成为你的字符串。在以下

的循环中

1. 删除s

   中的前导空格

   while (length(s)>0) and (s[1]=' ') do delete(s,1,1);

2. 查找剩余字符串中的第一个空格

   p := pos(' ',s);

3. 复制第二个字符串t中的非空格部分，并从s

   中删除该部分

   t := copy(s,1,p-1); delete(s,1,p);

4. 使用

   获取下一个数组元素[i]

   val(t,element[i],code);

当然你必须进行代码检查（在某些操作之后字符串是空的吗？如果val给出错误，你没有有效数字，......），数组索引等。