деление строки на элементы

[Vergilian]

Доброго времени суток.

Появилась проблема в написании программы: даны 4 массива, 3 из них стринг типа и 1 integer (фио и дата рождения).
С клавиатуры вводится строка стринг типа (а,б,с,1 к примеру) и программа должна отделаться элементы по запятым и вносить их в свой массив.
1-я проблема не знаю как цифры со стринг строки занести в инт массив.

2-я написанный код зависает на вечном цикле (наверное)

uses crt;
type mass = array[1..35] of string; massint = array[1..35] of integer;
var a,b,c:mass; d:massint; r:string;
procedure vvod ( n:integer);
var i,l:integer;
begin
for i:=1 to n do begin
read (r);
r:=r+',';
l:=1;
repeat
if (copy(r,l,1)) = ',' then begin
a[i]:=(copy(r,1,l-1));
l:=l+1;
end;
until (copy(r,l-1,1) = ',');
delete(r,1,L-1);
l:=1;
repeat
if (copy(r,l,1)) = ',' then begin
b[i]:=(copy(r,1,l-1));
l:=l+1;
end;
until (copy(r,l-1,1) = ',');
delete(r,1,L-1);
l:=1;
repeat
if (copy(r,l,1)) = ',' then begin
c[i]:=(copy(r,1,l-1));
l:=l+1;
end;
until (copy(r,l-1,1) = ',');
delete(r,1,L-1);
end;
end;

Буду благодарен за помощь!

[TinMan]

Для перевода строки в число есть процедура Val.
А поиск разделителей рекомендую делать не через цикл, а функцией Pos - тогда, думаю, и зависания пропадут.
Есть у тебя справочник по функциям?

[Stilet]

а функцией Pos - тогда, думаю, и зависания пропадут.

Одна только проблемка - Pos ищет только первое вхождение. Если у автора несколько разделителей в строке, то без цикла не обойтись.

[TinMan]

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

Одна только проблемка - Pos ищет только первое вхождение. Если у автора несколько разделителей в строке, то без цикла не обойтись.

Ты бы глянул в код-то )).
Автор тоже ищет только первое вхождение. Но потом удаляет найденное слово вместе с разделителем. Все путем )).

[Stilet]

Ты бы глянул в код-то )).

Смотрел я код. Именно поэтому и хотел предложить вариант без POS.

uses crt;
type mass = array[1..35] of string; 
massint = array[1..35] of integer;
var a,b,c:mass; d:massint; r:string;

procedure vvod ( n:integer);
var i,l,k,o,p:integer;
 s:array[1..4] of string;
begin

for i:=1 to n do begin read (r);
 l:=1; 
 o:=1;
 while l<length(r) do begin k:=l; // В цикле пойдем по массиву
   while (l<length(r))and (r[l] in ['A'..'z','0'..'9','А'..'я']) do inc(l); // вычислим где очередной разделитель
   s[o]:=copy(r,k,l-k+1); inc(o); // скопируем все что было до него и перед предидущей
   while (l<length(r))and not (r[l] in ['A'..'z','0'..'9','А'..'я']) do inc(l);
 end;

end;
end;

ИМХО это получше чем смесь POS и DELETE.

P.S. Ты не подумай, я не против твоего предложения.

[TinMan]

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

ИМХО это получше чем смесь POS и DELETE.

Это безусловно лучше (в смысле эффективнее), да и исходная строка сохраняется.
Кул )). Надеюсь, ТС оценит.

[Vergilian]

Спасибо, с val разобрался, попробую ваш вариант.