Каждое слово разделенное '/' занести в переменную (или массив) - Pascal

Узнай цену своей работы

Формулировка задачи:

Дана строка определенного вида. Например:

INTEL / Xeon Processor E5-2690 v3 / LGA2011-3 Square ILM / 3.5 ГГц / 135W / 64bit / HyperThreading /

Нужно каждое слово разделенное '/' занести в переменную(или массив)(на самом деле в поле Edit в delphi, но сути не меняет), что бы получилось, что-то вроде:
A[1] := 'INTEL';
A[2] := 'Xeon Processor E5-2690 v3';
A[3] := 'LGA2011-3 Square ILM';
...
или
 
a := 'INTEL';
b := 'Xeon Processor E5-2690 v3';
c := 'LGA2011-3 Square ILM';
...
Как вам угодно, т.к. количество этих слов фиксированно.

Решение задачи: «Каждое слово разделенное '/' занести в переменную (или массив)»

textual
Листинг программы
n:=0;
while pos('/',s)>0 do
 begin
  n:=n+1;
  a[n]:=copy(s,1,pos('/',s)-1);
  delete(s,1,pos('/',s));
 end;

Объяснение кода листинга программы

  1. Переменная n инициализируется значением 0.
  2. В цикле while происходит обработка каждого символа в строке s до тех пор, пока позиция разделителя '/' в строке s больше 0.
  3. На каждой итерации цикла значение переменной n увеличивается на 1.
  4. В операторе присваивания переменной a[n] копируется подстрока из строки s, начиная с первого символа и заканчивая символом перед позицией разделителя '/'.
  5. После завершения операции копирования символы в строке s удаляются, начиная с первого символа, до позиции разделителя '/'.

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы