как найти одинаковые слова в memo?

[gylayko]

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

[jone]

создай масив повторений
бери каждую строчку и проверяй остальные ровна ли она той если равна записывай в масив
дальше можешь вывести масив и увидить сколько раз повторялась та или иная строка

[spirit-ua]

Я бы сделал немного по другому:
построчно разбить строку на слова (разделитель пробел)
каждое слово сверять с масивом и если
- слово в масиве отсутствует тогда добавлять его в масив и тут же этому слову ставить "счетчик" в еденицу
- слово присутствует - увеличить счетчик на еденицу

[gylayko]

Сообщение от spirit-ua

Я бы сделал немного по другому:
построчно разбить строку на слова (разделитель пробел)
каждое слово сверять с масивом и если
- слово в масиве отсутствует тогда добавлять его в масив и тут же этому слову ставить "счетчик" в еденицу
- слово присутствует - увеличить счетчик на еденицу

вот примерно так пытаюсь делать
сначала делю строки на слова и вношу их в массив

for i:=0 to mmoText.lines.count do
  begin
  s := mmoText.Lines[ i ];
 for o:=1 to length(s) do              //в цикле с параметром перебираем все символы строки
    if (s[o]<>' ') and (s[o]<>'.') and (s[o]<>';') and (s[o]<>',') and (s[o]<>'"') and (s[o]<>'/') and (s[o]<>'!') and (s[o]<>':') and (s[o]<>')') and (s[o]<>'(') and (s[o]<>'?') then sl:=sl+s[o] else   //если символ не пробел, добавляем его к слову
       //здесь сможете таким же образом добавить свои символы, которые не могут входить в состав слова
       if length(sl)>0 then             //если длина слова больше 0 (бывает и 0, если несколько пробелов подряд)
          begin                         //начинаем
          inc(q);                       //увеличить счетчик массива
          a[q]:=sl;                     //занести сформированное слово в элемент массива
          sl:='';                       //очистить переменную для нового слова
          end;
end;

и проверка на повторение

while y<Length(a) do
begin
  a[y]:=slovodlaproverki; //сначала присваиваем первый элемент слову для проверки
  if slovodlaproverki=a[y] then //если совпадает
   begin
    DopArraySlov[w]:=a[y];//заносим слово в еще один строковый массив
    Inc(e);//увеличиваем количество его повторений
    DopArrayCifr[w]:=e;//и заносим это количество в массив с цифрами (количеством повторов)
   end;
  Inc(w); Inc(y);//увеличиваем счетчики массивов
//объяснение: здесь мы создаем еще два массива - один для повторяющихся слов, другой для количества повторов
//индекс у этих массивов один и тот же, получается в результате мы получим, что в первом массиве будет повтоярющиеся слово
//а во втором - количество его повторений
Memo1.Text:=Memo1.Text+'повторяется слово '+DopArraySlov[w];
end;
end;

выводил получившийся массив, там все отлично, делит на слова! но вот возникает ошибка Acces Violation на втором куске, а конкретно на строке DopArrayCifr[w]:=e;

[s-andriano]

А где код, устанавливающий размер этого массива?
И какое значение принимает w в момент возникновения ошибки?

[gylayko]

Сообщение от s-andriano

А где код, устанавливающий размер этого массива?

length(a); а так это просто array of string

Сообщение от s-andriano

И какое значение принимает w в момент возникновения ошибки?

0

[s-andriano]

Сообщение от gylayko

length(a); а так это просто array of string0

length - возвращает размер массива, а устанавливает его
setlength.
Покажите, где Вы устанавливаете размер массива, и каков он в момент выполнения.
Подозреваю, что память под массив просто не распределена (забыли вызвать setlength).

[gylayko]

Сообщение от s-andriano

length - возвращает размер массива, а устанавливает его
setlength.
Покажите, где Вы устанавливаете размер массива, и каков он в момент выполнения.
Подозреваю, что память под массив просто не распределена (забыли вызвать setlength).

да я, собственно, нигде его не ставлю. а где нужно ставить этот setlength? какой вообще смысл менять размер массива? насколько мне известно, length определяет длину массива. я так уже делал много раз, а тут оказывается, что что-то не так.

[s-andriano]

Сообщение от gylayko

какой вообще смысл менять размер массива?

Если массив имеет нулевую длину, то в него даже один элемент не поместится.

А вообще, читайте книжки - они рулез.
Опять же, есть встроенная справка...

[Человек_Борща]

не правильно вы делаете.
Разбейте текст на список слов:

TS.Delimiter:='.';
TS.DelimitedText:='Мой текст1. Моё предложение2. Хрень какая-то....';

Пример выше правильно отработает если разделителем слов будет точка, в вашем случае это пробел, потому выпиливаем все точки и пр. знаки.
Итого получается список внятных букаф.

Удалим же пустые строки и сделаем нижний регистр или верхний:

for i:=TS.Count -1 downto 0 do
begin
  ts[i]:=UpperCase(Trim(TS[i]));
  if ts[i] = EmptyStr then
  ts.delete(i);
end;

Теперь, в массиве нет пустых мест.

Берем многопоточность:
Кол-во строк в TS делим на желаемое кол-во потоков, остаток от деления загребает последний поток.
Всем потокам отдается исходный текст.

Поток при запуске исходный текст переводит в верхний/нижний регистр:
fTexts:=UpperCase(fTexts);

Дальше ищутся слова в тексте и обрабатывается ивент когда есть итог по слову.