Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

21st
Сен

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

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;