[delphi]: Дана строка. Вывести каждое её слово с новой строки.

[SEXTANT]

Дана строка. Все слова вывести на экран в столбец.
Пример: мама мыла руки
мама
мыла
руки
Помогите пожалуйста, не могу додуматься, как-то пытаюсь через copy, но не получается.

[Artsiom]

var
 s : string = 'мама мыла руки';
 i : integer;
begin
 for I := Low(s) to High(s) do
   if s[i] = ' ' then
    Writeln('')
   else
    Write(s[i]);
end

[SEXTANT]

Спасибо, конечно, но это pascal. Это я знаю, я вывод не знаю как сделать.
Вот что у меня получается.

[Artsiom]

Паскаль, Делфи, тот же i, только с боку)

А свой код покажешь?

[SEXTANT]

Тут просто вывод другой просто.
код выше

[Artsiom]

procedure TForm1.Button1Click(Sender: TObject);
var
 s : string;
 i, lines : integer;
begin

s := Edit1.Text;
lines := 0;

 for i := Low(s) to High(s) do
   if (s[i] = ' ') or (s[i] = '.') then
   begin
    Memo1.Lines.Add('');
    inc(lines);
   end
   else
    Memo1.Lines[lines]:=Memo1.Lines[lines]+s[i];
end;

Но если прям нужно что-то с copy/del и циклом с предусловием, то:

procedure TForm1.Button1Click(Sender: TObject);
var
 s, a : string;
begin

s := Edit1.Text;

while s[1]<>'.' do
  if (s[1] <> ' ') then
  begin
    a := a + copy(s, 1, 1);
    Delete(s, 1, 1);
    end
else
  begin
    Memo1.Lines.Add(a);
    a := '';
    Delete(s, 1, 1);
  end;
  Memo1.Lines.Add(a);

end;

Или так:

procedure TForm1.Button1Click(Sender: TObject);
var
 s, a : string;
 i : integer = 0;
begin

s := Edit1.Text;

while s[i]<>'.' do
  if (s[i] <> ' ') then
  begin
    inc(i);
  end
else
  begin
    Memo1.Lines.Add( copy(s, 1, i) );
    Delete(s, 1, i);
    i := 1;
  end;

  Memo1.Lines.Add(copy(s, 1, i-1));

end;

[SEXTANT]

Оооой спасибо тебе большое, век не забуду.

[Aleksandr H.]

Только препод, наверное, скотина такая, захочет ввести строку

"______________мама________ мыла раму_______________"

_ = пробел

[Artsiom]

Ну, если он такооой бездушный человек, тогда я вгонюсь в краску на лице и мосг выдаст этот ужас:

procedure TForm1.Button1Click(Sender: TObject);
var
  s, a: string;
begin

  s := Edit1.Text;
  a := '';

  while s[1] <> '.' do
  begin
    if (s[1] <> ' ') then
    begin
      a := a + copy(s, 1, 1);
      Delete(s, 1, 1);
    end
    else
    begin
      if a <> '' then
        Memo1.Lines.Add(a);
      Delete(s, 1, 1);
      a := '';
    end;

  end;

  Memo1.Lines.Add(a);

end;

[Аватар]

Это же делфи

  s:='   мама    мыла раму  ';
  Memo1.Lines.Delimiter:=' ';
  Memo1.Lines.DelimitedText:=s;