Invalid pointer operation (delphi)

[kami46]

Здравствуйте, помогите, пожалуйста, устранить ошибку. Моя программа составляет частотный словарь словосочетаний по заданному в мемо тексту. Если текст занимает 15 строчек, то всё прекрасно работает, а если например 300, то выдает ошибку "Invalid pionter operation".

Ошибка выскакивает после выполнения данного участка кода.

{Подсчет и удаление одинаковых фраз}
p := 0;
e := 1;
for i := 0 to length(frazi)-1 do
begin
s := frazi[i];
  for j := i+1 to length(frazi)-1 do
    begin
      if s=frazi[j] then begin
                           e := e+1;
                           for p := j+1 to length(frazi)-1 do
                                 frazi[p-1] := frazi [p];
                                 setlength (frazi, length(frazi)-1);
                         end;
    end;
    frazi[i]:= inttostr(e)+'........'+frazi[i];
    e := 1;
end;

'frazi' - это массив строк, в котором хранятся все словосочетания текста (т.е. 2 слова, стоящие рядом в одном предложении), каждый элемент соответственно равен фразе.

Здесь происходит поиск одинаковых элементов массива (т.е. словосочетаний в тексте). Если мы встречаем одинаковые словосочетания, то счетчик увеличиваем на 1, а 2-ю одинаковую фразу удаляем, ну и кол-во повторений каждого словосочетания мы добавляем к самому словосочетанию во frazi[i], разделяя словосочетания и счетчик многоточием (.........).

[Serge_Bliznykov]

а не лучше ли воспользоваться наследником от TStrings - TStringList ?

[kami46]

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

а не лучше ли воспользоваться наследником от TStrings - TStringList ?

К сожалению я не умею с ним работать
Что конкретно нужно с ним делать, поясните, пожалуйста

[Serge_Bliznykov]

хм... вы меня вопросом в тупик поставили...
что значит - "что конкретно с ним нужно делать" ?! Его нужно ИСПОЛЬЗОВАТЬ!

Как - вместо вашего динамического массива frazi

что такое TStringList рекомендую почитать (в любой книжке по Delphi/справке Delphi, поиском в Интернете)...

конкретные примеры использования можете посмотреть, например (поиском навскидку нашёл более-менее похожее на вашу задачу):

Удаление дубликатов строк

Как избежать повтор строк в тексте

Количество одинаковых слов в строке. Delphi

Статистика слов в тексте

[kami46]

спасибо, попробую