Как разделить строку на масив по пробелу?

Question

[quintbrut]

Допустим есть строка:
Произвольная строка
Нужно чтобы было так:
['Произвольная', 'строка']

Answer 1

[Hemul GM]

По циклу прогоняешь строку, если пробел, то от начала до пробела помещаешь в массив.
Рекомендую сначала посчитать пробелы одним циклом. Установить размер массива = кол-во пробелов + 1.
Далее уже заполнять массив.
Тебе нужна переменная, которая запомнит последнюю позицию
LastPos
И переменная последнего элемента
LastIndex
Ну и вот:

SetLength(a, SpaceCount + 1);
LastPos := 1;
LastIndex := 0;
for i := 1 to Length(Str) do
  if Str[i] = ' ' then
  begin
    a[LastIndex] := Copy(Str, LastPos, (i - LastPos)); //-- тут возможно +-1
    Inc(LastIndex);
    LastPos := i;
  end;

Это если для чистого Pascal, а если для Delphi, то лучше TStringList использовать и его метод DelemitedText

Comments

[zed]

Вопрос вообще про FreePascal.

[Hemul GM]

zedxxx, so? Я что-то не так написал?

[zed]

Hemul GM, Если речь про FP или современный Delphi, то задача решается очень просто, без всего этого вот, что вы написали.

[Hemul GM]

zedxxx, а я что ниже написал, отдельной строчкой?

[zed]

Hemul GM, И там вы написали устаревшую информацию. Для Delphi есть функция SplitString и никаких стринг-листов не надо.

[Hemul GM]

zedxxx, есть такое понятие, как "разумность". Если человек просит инфу с тегом pascal, а не Delphi, то вероятно у него: либо мало опыта и он работает со старыми версиями, либо ищет решение именно для паскаля. Раз я не знаю, какие методы есть в FreePascal, то разумно предложить пример рабочий для любого "паскаля" (FreePascal, Delphi или PascalABC.Net). Он будет работать везде.
И самое интересное, что, если ты откроешь реализацию метода Split, то увидишь, что он реализован точно так же, как показал я (почти):

Answer 2

[zed]

Используйте свойство Split:

uses 
  ...
  SysUtils;
     
var
  I: Integer;
  VStr: string;
  VArr: TStringArray;
begin
  VStr := 'Произвольная строка';
  VArr := VStr.Split(' ');

  for I := 0 to Length(VArr) - 1 do begin
    WriteLn(VArr[I]);
  end;
end;