строку по одной цифре раскидать в массив Integer

← →
Cat © (2005-05-19 16:42) [0]

Есть строка 5678998893434534. Нужно строку по одной цифре раскидать в массив Integer. Подскажите как сделать.

← →
Просто Джо © (2005-05-19 16:44) [1]

в таком духе
S := IntToStr(IntVar); for I := 1 to Length(S) do IntArr[I-1] := S[I];

← →
Просто Джо © (2005-05-19 16:45) [2]

И если массив динамический, то конечно:
SetLength(IntArr, Length(S));

← →
Anatoly Podgoretsky © (2005-05-19 17:06) [3]

Просто Джо © (19.05.05 16:44) [1]
Проверял? Проверь

procedure TForm1.Button2Click(Sender: TObject);
var s:string;
intar:array of integer;
i,c:integer;
begin
s:="11101232323";
SetLength(intar,length(s));
for i:=0 to length(s)-1 do
val(s[i+1],intar[i],c);
end;

> Cat © (19.05.05 16:42)

var S: string; I, L: Integer; Arr: array of Integer; begin S := "5678998893434534"; L := Length(S); SetLength(Arr, L); for I := 1 to L do if S[I] in ["0".."9"] then Arr[I - 1] := Ord(S[I]) - $30 else raise Exception.CreateFmt("Incorrect symbol %s in position %d", [S[I], I]) end.

строку по одной цифре раскидать в массив Integer Найти похожие ветки