Строка в массив из строк

[Alex Cones]

Отрезок кода такой:

While S<>'' do
   Begin
    A[I]:=Copy(S,1,Pos(' ',S)-1);
    Delete(S,1,Pos(' ',S));
    Inc(I);
   End;

Вроде все прелестно, но когда забиваю такую строку:
'ВОДКА ПИВО РОЗОВЫЙ' Код бесится и перескакивает через несколько сотен строк. Мне удалось локализовать ошибку. Строка Delete(S,1,Pos(' ',S));
Первые два слова заносятся нормиально и вводятся в массив, но после третьего нет пробела и программа получает команду DELETE(S,1,0), что приводит к неопознанным ошибкам. Как выйти из этой ситуации? Я пока вижу только один способ - перед циклом дописывать ' ' в конце строки. Может есть способ получше? Как-то изменить цикл?

[SERG1980]

не самый лучший вариант

begin
 s:='ВОДКА ПИВО РОЗОВЫЙ';
 while s<>'' do
 begin
  if Pos(' ',S)>0 then
  begin
   A[i]:=Copy(S,1,Pos(' ',S)-1);
   Delete(S,1,Pos(' ',S));
  end else
  begin
   A[i]:=s;
   s:='';
  end;
  inc(i);
 end;
end;

а может и проще как вы говорили перед циклом while дописать

s:=s+' ';

[Alex Cones]

а может и проще как вы говорили перед циклом while дописать

Я просто подумал, может это как-то скажется на цикле. Вроде никак, но мало ли что. Перестрахуюсь.

не самый лучший вариант

Ну почему же. Прекрасный вариант. Спасибо.

[Stilet]

А если так:

 for e:=1 to length(S)' do   Begin
    A[i]:=a[i]+s[e];
    if s[e]=' ' then  Inc(I);
   End;

Помоему надежнее и быстрее.

[Lime]

Сообщение от Alex Cones

Отрезок кода такой:

While S<>'' do
   Begin
    A[I]:=Copy(S,1,Pos(' ',S)-1);
    Delete(S,1,Pos(' ',S));
    Inc(I);
   End;

Вроде все прелестно, но когда забиваю такую строку:
'ВОДКА ПИВО РОЗОВЫЙ' Код бесится и перескакивает через несколько сотен строк. Мне удалось локализовать ошибку. Строка Delete(S,1,Pos(' ',S));
Первые два слова заносятся нормиально и вводятся в массив, но после третьего нет пробела и программа получает команду DELETE(S,1,0), что приводит к неопознанным ошибкам. Как выйти из этой ситуации? Я пока вижу только один способ - перед циклом дописывать ' ' в конце строки. Может есть способ получше? Как-то изменить цикл?

var
T:Tstringlist;
S:string;
begin
S:='Cola Pepsi blue';
T:=Tstringlist.Create'
T.text:=Stringreplace(S,' ',#10,rfreplaceall);// или #13 непомню точно

В зависимости от коментария выше получатся будет примерно тот-же результат Если нужно разбить строку на слова по полочкам)
Есл нужен массив то перебить элементы думаю не составит большого труда. + в том что разделителем может быть любой символ или строка/слово.

ПС писал в браузере.

[Stilet]

T.text:=Stringreplace(S,' ',#10,rfreplaceall);// или #13 непомню точно

А что это даст автору то?

[Lime]

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

А что это даст автору то?

Реализация задачи дургим способом.(на всякий случай)

[Alex Cones]

Всем спасибо, я уже реализовал и откомпилил. Перехожу к следующей части моего коварного замысла. Всем спасибо.
________________

Θ Зарегистрироваться на форуме.
Θ Задать вопрос
Ο Поработить людей
Ο Уничтожить мир

[Lime]

Сообщение от Alex Cones

Всем спасибо, я уже реализовал и откомпилил. Перехожу к следующей части моего коварного замысла. Всем спасибо.
________________

Θ Зарегистрироваться на форуме.
Θ Задать вопрос
Ο Поработить людей
Ο Уничтожить мир

Можно позаимствовать твой коварный план ?) Он мне по душе

[Alex Cones]

[FLOOD] Бери, мне не жалко. Будем вдвоем порабощать людей [/FLOOD]