Поиск и подсчет слов в Memo

Posted by obzor under Delphi

Подсчитать количество вхождений заданного слова (не подстроки) в текст, содержащийся в Memo.

Arigato

Вариант решения с учетом разных разделителей между словами:

uses
  StrUtils;

function CountWords(substr,str: string): Integer;
const
  Delims: set of Char=[#10,#13,' ',',','.']; // разделители
var
  p: Integer;
begin
  Result:=0;
  str:=' '+str+' ';
  substr:=trim(substr);
  p:=1;
  repeat
    p:=PosEx(substr,str,p);
    if (p>0) and (str[p-1] in Delims) and (str[p+Length(substr)] in Delims)
      then Inc(Result);
    Inc(p);
  until p=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(CountWords('ct',Memo1.Text)));
end;

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

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

• Конвертация gif в bmp
• Как автоматически заполнить ListBox?
• Как обрабатывать нажатия на ячейках таблицы?
• Как вывести имя компонента в заголовок формы
• Управление объектом image стрелками клавиатуры
• Как правильно делать автоматическое создание столбцов с картинками в виде таблицы
• Польза онлайн курсов
• Перевод русского текста в коды юникода
• Как включить таймер в другой программе?
• Работа с VirtualListView