Разделение текста на слова

Posted by micher under Delphi

Corpuscul

Необходимо разделить строку записанную в Edit или Memo на составные части. Подскажите, пожалуйста, как это сделать?

Sciv

procedure SplitTextIntoWords(const str: string;

output: Tstringlist; minLength: integer=1{минимальная длина слова});

var

  positionStart, positionEnd: integer;

  wordToAdd: string;

begin

  Assert(Assigned(output));

  output.Clear;

  positionStart := 1;

  while positionStart <= Length(str) do

  begin

    while (positionStart <= Length(str)) and not IsCharAlphaNumeric(str[positionStart]) do

      Inc(positionStart);

    if positionStart <= Length(str) then

    begin

      positionEnd := positionStart + 1;

      while (positionEnd= minLength) then

      begin

        // добавление слова в список

        output.Add(AnsiLowerCase(wordToAdd));

      end;

      positionStart := positionEnd + 1;

    end;

  end;

end;

	procedure TForm1.Button1Click(Sender: TObject);

var words: TStringList;

begin

  words:= TStringList.Create;

  SplitTextIntoWords(Memo1.Text,words);

  Memo2.Text:=words.Text;

  words.Free;

end;

тема на форуме

Случайные статьи

• Как удалить все тэги?
• Проверить существует ли файл
• Как взять из DataTime только часы?
• Рассылка. Выпуск 67.
• Как разрисовать HINTS
• Снятие выделения с пункта
• Задача на матрицы (Pascal)
• Ethernet-контроллер нужно установить драйвер, только как узнать какой?
• Как получить captcha с сайта
• VBA: отправка писем с содержимым из HMTL-файла