Ошибка если более 20000 сторок

[Volt]

Не могу понять почему выскакивает ошибка. Программа записывает между вот такими скобками [Таб1] Здесь вставляется текст [/Таб1] текст. Но если в файл имеет более 20000 строк то происходит ошибка. Ошибка именно тогда когда я открываю файл и пытаясь произвести запись. Объясните в чем ошибка.

[Скандербег]

Ошибка, понятное дело, когда процедура (del) вызывается рекурсивно 22000 раз. Получаем переполнение стека. Вполне предсказуемая реакция программы.

[Volt]

Тогда не пойму почему когда я беру эти 22000 строк не из файла (а записываю их в sText:TStringList; в программе) то все работает нормально (даже более 200000). Помогите как можно устранить ошибку

[Stilet]

Я не знаю что там за прикол, но могу с уверенностью сказать что твоя стратегия никуда не годится.
У тебя jj не увеличивается, по какой-то причине, если я просто нажму открыть и записать.

[Скандербег]

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

Тогда не пойму почему когда я беру эти 22000 строк не из файла (а записываю их в sText:TStringList; в программе)

А откуда, позвольте осведомиться, "а записываю их..."? Не из файла ли? Или они в sText попадают каким-то чудесным образом? Уж не привиделась ли такая строка в тексте: sText.LoadFromFile(OpenDialog1.File Name);, которая и "берет эти 22000 строк" именно из файла.

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

... то все работает нормально (даже более 200000).

А что "все"?
В программе ничего нет, кроме попытки удалить все строки из списка sText, к тому же в рекурсивной процедуре. Как будь то нельзя строки удалять простым методом Delete.
Опять же, непонятно, зачем загружать текст в список, чтобы потом все строки удалить.
Из текста исходника вообще не понятна цель программы.
Два, совершенно бессмысленных оператора:

  sText2.Text:=memo1.Text;
  writes('Таб1', sText2)

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

[Volt]

Это проблемный фрагмент моей программы. А выполняет он вот что: ищит скобки [Таб1][/Таб1] таких скобок может быть n количество. т.е [Таб1][/Таб1][Таб2][/Таб2]..[ТабN][/ТабN]. Если скобка найдена то процедура writes удаляет все что между ними и записывает новый текст. Если нужной скобки нет то процедура записывает в конец скобки и текст.

[Stilet]

Думаю тебе нужно что-то вроде такого:

procedure writes(Index:string; var PasteText:TStringList);
var  k,i:integer;e,s,aga:string;
begin
 aga:='[/'+index+']';
 s:=PasteText.Text;
 i:=pos('['+index+']',s);
 if i>=0 then begin
 k:=i+length('['+index+']');
  while i<(length(s)-length(index)) do begin
   if copy(s,i,length(index))=aga then begin
    break;
   end;
   inc(i);
  end;
  delete(s,k,i-k-length(aga));
  e:=Form1.Memo1.Text;
  Insert(e,s,k);
 end;
 PasteText.Text:=s;
end;

[Volt]

Stilet спасибо я что то совсем забыл про while.

[Stilet]

Ну я так с потолка взял. главное что смысл ты понял )
Хотя этот код конечно не оптимальный...