Запись строки в масив

[S_007]

Здравствуйте!
Var s:string;
data: array[1..7] of integer;

s:=’1234567’, как записать эту строку в массив, каждую цифру по отдельности, чтоб в data[1] было 1, в data[2] было 2, в data[3] было 3 и т.д.? Все перерыл не могу найти пример

[ViNT]

Перевести символ в число можно так
Ord(GetChar(S,i))-48
Где S - исходная строка, i - номер символа.

[kizup]

А как ты собираешься это сделать если у тебя массив чисел,а переменная строкового типа. Либо развивать парсить строку а потом пользоваться stringToInteger(s:string). Но мне кажется есть более простой способ через цикл
x:=1;
for i:=1 to 7 do
begin
data[i]:=x;
x:=x+1;
end;
Если че то не так поправьте

[ViNT]

Сообщение от kizup

А как ты собираешься это сделать если у тебя массив чисел,а переменная строкового типа. Либо развивать парсить строку а потом пользоваться stringToInteger(s:string). Но мне кажется есть более простой способ через цикл
x:=1;
for i:=1 to 7 do
begin
data[i]:=x;
x:=x+1;
end;
Если че то не так поправьте

Жесть
Во первых, зачем заводить еще одну переменную и инкрементить ее, если уже есть счетчик цикла?
Ну и, как я понял, набор цифр может быть любой.

[S_007]

ViNT благодарю!!! Подскажи еще, не пойму, где в моем коде косяк, если в строке s:=' 1234' перед цифрами не поставить пробел, или любой другой символ, пишет 234-48, где делась единица? А с пробелом 1234

Program Test;
Var s:string;
data: array[1..7] of integer;
i:integer;

Begin
s:=' 1234';
for i:=1 to 4 do
begin
data[i]:=Ord(GetChar(s,i))-48;
end;
DrawText(''+data[1]+data[2]+data[3]+data[4],0,0);
repaint;
Delay(5000);
End.

[baton4ik]

Строка - массив символов, начинается не с "1", а с нуля.

Замени

for i:=1 to 4 do
begin
data[i]:=Ord(GetChar(s,i))-48;
end;

на

for i:=0 to 3 do
begin
data[i+1]:=Ord(GetChar(s,i))-48;
end;

[S_007]

baton4ik Спасибо! Ты прав, теперь все работает ровно. ViNT, еще раз спасибо!