Преобразовать символы в строке в значение переменных

[Federal]

У меня есть строка(string):

01DEJDSGEZDWGDGNKDGKWQ

мне нужно что бы первые три символа переходили в переменную S1
дальше пять символов в переменную S2
дальше 7 символов в переменную S3 и так далее
то есть должно получится следущее

S1=01D
S2=EJDSG
S3=EZDWGDG

можно но ли так сделать? если можно то как, подскажите...

[DIgorevich]

var
 s,S1,S2,S3:string;
 i:integer;
begin
 s:='01DEJDSGEZDWGDGNKDGKWQ';
 for i:=1 to 3 do 
   S1:=s1+s[i];
end;

и т.д.

[Federal]

спасибо))) выручил

[VadEr]

const
   str='01DEJDSGEZDWGDGNKDGKWQ';
var
   S: string;
   i,j:Integer;
begin
  i:=1;
  j:=3;
  while i < Length(str) do
  begin
    S:=Copy(str,i,j);
    Inc(i,j);
    Inc(j,2);
    Writeln(S);
  end;
  Readln;
end.

[DIgorevich]

2 VadEr, о да... вам в раздел "Свободное общение", там как раз про увеличение размера программ речь ведется

[VadEr]

а в какой именно теме?

[DIgorevich]

http://programmersforum.ru/showthread.php?p=581878

[eoln]

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

2 VadEr, о да... вам в раздел "Свободное общение", там как раз про увеличение размера программ речь ведется

DIgorevich, без обид, но твой код чуток ужасен....

мне нужно что бы первые три символа переходили в переменную S1
дальше пять символов в переменную S2
дальше 7 символов в переменную S3 и так далее

Надо написать безумно много строчек чтобы выбрать, например, первые 100 последовательностей (причём кол-во последовательностей должно быть заранее известно). Даже если надо малое кол-во последовательностей, то всё-равно, это очень плохой тон. Подход VadEr'а вполне хорош.

[DIgorevich]

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

DIgorevich, без обид, но твой код чуток ужасен....

А я и не обижаюсь просто писал его, чтобы показать пример + у меня переменных поменьше будет (если не голый Pascal).