Question

Pascal，我怎样才能转动（读取）字符串的数字，例如＆＃39; 21354561321535613＆＃39;进入数字并将它们存入数组？

Answer 1

您可以通过减去'0'的序数值轻松将数字转换为整数。在循环中执行此操作，每个数字都有一个整数：

var
  S: string;
  A: array of Integer;
  I, Len: Integer;
begin
  S := '21354561321535613';
  Len := Length(S);

  { Reserve Len Integers. }
  SetLength(A, Len);

  { Convert each digit into an integer: }
  for I := 1 to Len do
    A[I - 1] := Ord(S[I]) - Ord('0'); { [I - 1] because array is zero-based. }
end;

Answer 2

var
  Str: string;
  Arr: array of Integer;
  i: Integer;
  Len: Integer;
begin
  Str := '21354561321535613';
  Len := Length(Str);
  SetLength(arr, Len);

  for i := 1 to Len do
    Arr[i - 1] := StrToInt(Str[i]);  
end;

Answer 3

您可以使用此代码将String转换为Array byte

＆＃13;

uses crt;
var
        s:string;
        a:array[1..1000] of byte;
        i:byte;
begin
        s:='1234567';
        for i:=1 to length(s) do
                val(s[i],a[i]);
end.

＆＃13;

对不起我的英语，我是学生。

PASCAL字符串到数组

3 个答案: