разбиение текста на слова

[Vladimir-888]

Помогите плиз. Имеется код разбиения текста на слова. Необходим небольшой комментарий, а то не совсем понятно

var
  Sep : set of char;
  T, W : string;
  i : integer;
begin
  sep:=[';',',','.',' '];

  T:=Memo1.Text+' ';
  W:='';
  i:=1;
  while i<=length(T) do
    begin
      if (T[i] in Sep) then
        if W<>'' then
          begin
            Memo2.Lines.Add(W);
            W:='';
          end
        else
      else
        W:=W+T[i];

      inc(i); //Inc увеличивает на 1 единицу
    end;

[vedro-compota]

ну это не сложно)

var
  Sep : set of char;
  T, W : string;
  i : integer;
begin
  sep:=[';',',','.',' ']; //это множество символов ,которыми слова могут разделяться )) 

  T:=Memo1.Text+' ';
  W:='';
  i:=1;
  while i<=length(T) do  // читаем строку посимвольно начиная с первого, i-  номер символа ))
    begin
      if (T[i] in Sep) then
        if W<>'' then // 
          begin
            Memo2.Lines.Add(W); // видимо, выводим очередное слово
            W:='';
          end
        else
      else
        W:=W+T[i]; // формируем очередное слово(прибавляя по одному символу)

      inc(i); //Inc увеличивает на 1 единицу //переходим к следующему символу
    end;

а так если , то что конкретно непонятно?

[Vladimir-888]

ну как раз то ,что вы описали, мне понятно) не понятно:
T:=Memo1.Text+' '; почему прибавляем пробел?
W:=''; почему присваиваем "пустому месту"?

Помогите)

[vedro-compota]

угу . заметь ) мы присваиваем w "пустому месту" как только найдём запятую или что-то , что разделяет слова ( из вышеописанного множества ) (но предварительно выводим полученный результат- слово , а только потом обнуляем))
во! сообразил - а пробел, видимо, чтобы вести последнее слово ( если строка не заканчивается ни точкой ни запятой не пробелом)))))
называй меня на ты)))
---------------------------------------------------
говори что не так) будем дальше думать)

[Vladimir-888]

спасибо, разобрался)