Delphi. Вывод слов в Memo, через Enter

[qpMAXqp]

Здравствуйте, уважаемые программисты.
Необходимо создать программу, которая будет выводить слова в объект "Memo" через Enter.
Например, мы ввели в Edit: Мама мыла раму,
В Memo выведет следующее:
Мама
Мыла
Раму,
Вот так вот.
Такой вот я код написал, здесь, правда, он выводит только 1ю букву всего предложения:

var
  i, p: Integer;
  e, e1: string;
begin
 e:= Form1.edt1.Text;
 p:= 0;
    for i:= 1 to Length(e) do
      begin
        if e[i] <> '' then
        e1:= e[i]

         else
         p:= p + 1;
      end;

      Form1.mmo1.Lines.Add(e[1]);
end;

[Unique_Maks]

дык ты её и выводишь)

Form1.mmo1.Lines.Add(e[1]);

[evg_m]

if e[i]<>' ' then 
  e1:=e1+e[i]; //добавляем к рабочей строке наш символ
else
begin //слово кончилось нам пора выводить
  self.memo1.Lines.add(e1);
  e1:=''; // начинать набрать слово заново  
end;

[qpMAXqp]

По прежнему, выводится лишь 1-я буква словосочетания.
И еще такая проблема: при отсутствии пробелов, слово не выводится

[Serge_Bliznykov]

так устроит?

procedure TForm1.Button1Click(Sender: TObject);
var
  s, e1 : string;
  i : integer;
begin
  Memo1.Lines.Clear;
  s := Trim(Edit1.Text);
  if length(s)<>0 then begin
      if s[length(s)]<>' ' then s := s+' ';
      e1 := '';
      for i:=1 to length(s) do
        if s[i]=' ' then begin
          if trim(e1)<>'' then          
               Memo1.Lines.Append(e1);
          e1 := '';
        end
        else e1 := e1 + s[i];
  end;
end;

[Poma][a]

После этого :

s := Trim(Edit1.Text);

Мы в любом случае попадем сюда :

if s[length(s)]<>' ' then s := s+' ';

[Serge_Bliznykov]

После этого...
Мы в любом случае попадем сюда :

Да, точно так!

спасибо за поправку.
я бы так изменил свой пример:

procedure TForm1.Button1Click(Sender: TObject);
var
  s, e1 : string;
  i : integer;
begin
  Memo1.Lines.Clear;
  s := Trim(Edit1.Text);
  if length(s)<>0 then begin
      s := s+' ';
      e1 := '';
      for i:=1 to length(s) do
        if s[i]=' ' then begin
          if trim(e1)<>'' then          
               Memo1.Lines.Append(e1);
          e1 := '';
        end
        else e1 := e1 + s[i];
  end;
end;

пишу код на форум, а сам уже сплю...

[Poma][a]

пишу код на форум, а сам уже сплю...

Как я Вас понимаю
Еще одно замечание..

if trim(e1)<>'' then

Трим не нужен.. он удаляет лишь пробелы, их их мы как раз и отсекаем развилочкой..

Кстати, интересно.. А можно-ли как-нибудь обойтись без развилки, но так, чтобы в цикл при s = '' мы не вошли?

[Аватар]

при отсутствии пробелов, слово не выводится

Это уже беда, а не слово. Кроме всего прочего, а именно пробелов, расположения слова в начале или конце строки, со словом может граничить знак пунктуации или кавычка. Ну а поскольку машинное представление, то в тексте запросто могут быть символы перевода каретки и строки, а то и символ табуляции. Последнее экзотично для обычного текста, но все же. Если подумать, то еще какую-нибудь гадость придумаю

ADD

Придумал. Дефис может быть как частью слова, так и знаком пунктуации

[qpMAXqp]

Большое спасибо Serge_Bliznykov =)
Надо будет вникнуть, а то ход мысли не совсем понятен, а именно эти фрагменты:

  s := s+' ';
      e1 := '';

и вот это

 if trim(e1)<>'' then          
               Memo1.Lines.Append(e1);
          e1 := '';
        end
        else e1 := e1 + s[i];

А так, премного благодарен =)