arrays - 帕斯卡：按数字读取输入数字

Question

简单的问题，但奇怪的是我还没有找到任何简单的解决方案：我想将输入“1234”（不带引号）存储到数组中，以便每个数字作为整数存储到单独的位置（即 array[1] 将等于 1 等）。

顺便说一句（它可能会有所帮助，或者可能对不同的解决方案提出建议），我正在处理一些简单的排列操作（字典顺序等），所以我想单独操作这些数字。

谢谢！

Answer 1

Var
s           :String;
myArray : Array[1..20] of Boolean;
code    :integer
Begin
s := "1234";
For i := 1 to length(s) do
 Begin
  Val(s[i], myArray[i], code);
 End;
End.