How can I convert a string of numbers like for example '21354561321535613' into digits and store them in an array?
Each digit should be turned into an integer element in the array, so the string '21354561321535613' should result in:
[2, 1, 3, 5, 4, 5, 6, 1, 3, 2, 1, 5, 3, 5, 6, 1, 3]
You can easily turn a digit into an integer by subtracting the ordinal value of '0'. Do this in a loop and you have an integer for each digit:
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;
array[7..12] of Integer) can have any base (in this case, 7). The index can be any ordinal, so even Char or Boolean or an enumerated type. Dynamic arrays (e.g. array of Integer if declared as var or type) are always zero-based and the index is always an integer. The A in my answer is such a dynamic array, and is thus always zero-based.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;
You can use this code to covert String to Array of bytes)
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.
it sample to convert numbers as string to numbers use the function
strtoint(number_in_string);
to convert numbers to numbers as string use the function
inttostr(number);
