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

[ZX Spectrum-128]

  s := s+' ';  //  в строку s добавляем пробел справа
      e1 := '';  // e1 присвоим пустой символ

 if trim(e1)<>'' then          // если e1 (с отсеченными пробелами) не равен пустому символу
               Memo1.Lines.Append(e1); // то добавляем его в memo
          e1 := '';
        end
        else e1 := e1 + s[i]; // а иначе к e1 добавляем очередной символ из s

[Serge_Bliznykov]

ZX Spectrum-128, всё правильно. спасибо за помощь.

хотел бы уточнить (для автора топика) пару моментов.

e1 := ''; // e1 присвоим пустую строку

if trim(e1)<>'' then // если e1 (с отсеченными пробелами) не равен пустой строке

в e1 мы накапливаем очередное слово. Изначально эта переменная должна быть пуста (поэтому и делаем e1 := ''; )
потом, проверяем очередной символ строки и, если он не пробел - то найденный символ добавляем к переменной e1, если же пробел - то полностью сформированное слово из переменной e1 мы помещаем в memo1 и обнуляем переменную e1 для накопления очередного слова.
Именно поэтому мы перед циклом к строке справа дописали дополнительный пробел - чтобы последнее слово тоже обработалось этим кодом.

ну и последнее. строчка if trim(e1)<>'' then нужна для того, чтобы в мемо не добавлялись пустые слова (состоящие исключительно из одних пробелов).

Так стало чуть понятнее?


p.s. для понимания подобных алгоритмов хорошо помогает пошаговая отладка. Поставьте точку останова на первую строчку кода, запустите программу, выведите в Watch нужные переменные (ну i, s, e1) и смотрите, как и что происходит.