Каждое слово разделенное '/' занести в переменную (или массив) - 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;
Объяснение кода листинга программы
- Переменная n инициализируется значением 0.
- В цикле while происходит обработка каждого символа в строке s до тех пор, пока позиция разделителя '/' в строке s больше 0.
- На каждой итерации цикла значение переменной n увеличивается на 1.
- В операторе присваивания переменной a[n] копируется подстрока из строки s, начиная с первого символа и заканчивая символом перед позицией разделителя '/'.
- После завершения операции копирования символы в строке s удаляются, начиная с первого символа, до позиции разделителя '/'.