Работа со строками Delphi

[Heng]

Требуется пройти по строке например 1,2,3,4,5 и записать только числа в отдельный массив типа Integer. По идее код я накатал только он постоянно выдает, что '' не Integer, я не могу найти где он у меня на пустое место натыкается.

 for i:=1 to length(s) do begin
     if (s[i] <> ',') and (s[i] <> ' ') then sm:=sm+s[i]; else begin 
         inc(x); 
         a[x]:=strtoint(sm);
         sm:='';
     end;
 end;

[VIK_aka_TOR]

if (s[i] <> ',') and (s[i] <> ' ') then sm:=sm+s[i]; else begin

";" убрать, и похоже нарушена логика... то бишь если у вас символ не равен точке и пробелу, то вы делаете "sm:=sm+s[i]" - зачем? а то что после esle уже похоже на то что вам нужно, но почему оно выполняется у вас когда просматриваемый символ равен пробелу или запятой...

[Heng]

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

if (s[i] <> ',') and (s[i] <> ' ') then sm:=sm+s[i]; else begin

";" убрать, и похоже нарушена логика... то бишь если у вас символ не равен точке и пробелу, то вы делаете "sm:=sm+s[i]" - зачем? а то что после esle уже похоже на то что вам нужно, но почему оно выполняется у вас когда просматриваемый символ равен пробелу или запятой...

Учел поправки, проблема решена, спасибо.

for i:=1 to length(s) do begin
       if s[i] <> ',' then sm:=sm+s[i];
       if (s[i] = ',') or (s[i] = ' ') then begin  a[x]:=sm; b[x]:=sm; inc(x); sm:='';end;
     end;