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

[Marsel737]

Всем привет, поздравляю всех с новым годом!!!

Подскажите что делаю не так. У меня в мемо есть текст в котором много лишних строк, я хочу их удалить.Текст примерно такого вида:

<Пустая строка>
Текст
<Пустая строка>
<Пустая строка>

Для удаления хотел воспользоваться вот таким кодом:

if Pos('Текст', memOnlyText.Lines.Text) then
begin
  memOnlyText.Lines.Delete(j-1);
  memOnlyText.Lines.Delete(j+1);
  memOnlyText.Lines.Delete(j+1);
  Exit;
end;

[Selestis]

i:=-1;
while i < Memo.Lines.Count-1 do begin
  inc(i);
  if Memo.Lines[i] = '' then begin
    Memo.Delete(i);
    dec(i);
  end;
end;

[Marsel737]

Selestis, есть одна проблема, мне нужно удалять не все проблемы, а только один до текста, один после. Я не лишнюю строку в коде написал

[evg_m]

//if Pos('Текст', memOnlyText.Lines.Text) then
if pos('ntrcn',memonlytext.lines.string[j]>0 then
begin
  memOnlyText.Lines.Delete(j-1);
  memOnlyText.Lines.Delete(j+1);
  memOnlyText.Lines.Delete(j+1);
  Exit;
end;

[russian-stalker]

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

//if Pos('Текст', memOnlyText.Lines.Text) then
if pos('ntrcn',memonlytext.lines.string[j]>0 then
begin
  memOnlyText.Lines.Delete(j-1);
  memOnlyText.Lines.Delete(j+1);
  memOnlyText.Lines.Delete(j+1);
  Exit;
end;

Только вот у вас 2 ошибки.
Во-первых не String[j], а Strings[j].
Во-вторых не хватает скобки после Strings[j]

[Serge_Bliznykov]

evg_m, скорее всего код работать НЕ БУДЕТ.
Похоже, что Вы не учитываете, что как только мы удалили строчку из Memo, все остальные строки СДВИГАЮТСЯ (у них уже новые индексы, поэтому Delete(j+1) удалит уже не ту строку, что планировалось!

Этого уже достаточно, чтобы код был нерабочим, но, кроме того, я в упор не вижу, где и как изменяется j, а без этого я на 99.9% уверен, что цикл по j огранизован неверно, и программа всё равно не будет правильно работать!
Кроме того, крайне не люблю программы, БЕЗ ВСЯКИХ проверок (в данном случаем, как минимум на то, что есть точно одна пустая строка до <Текст> и точно две после!

я бы решал задачу через обратный цикл.
вот мой рабочий вариант:

var j:integer;
begin
  j:=memOnlyText.Lines.Count-1;
  while j>=3 do
  begin
    if (Trim(memOnlyText.Lines[j])='') and
       (Trim(memOnlyText.Lines[j-1])='') and
       (Pos('Текст',memOnlyText.Lines[j-2])>0) and
       (Trim(memOnlyText.Lines[j-3])='') then
    begin
      memOnlyText.Lines.Delete(j);
      memOnlyText.Lines.Delete(j-1);
      memOnlyText.Lines.Delete(j-3);
      j := j - 3;
    end;
    Dec(j);
  end;
end;

[evg_m]

к вопросу порядка удалений

<Пустая строка> j-1
Текст j
<Пустая строка> j+1
<Пустая строка> 1+1 (еще оаз)

это был не рабочий код а пример что надо было исправлять Текст и
strings[j]

[Serge_Bliznykov]

к вопросу порядка удалений

ну, вообще-то выше я привёл уже рабочий код..
но, по по вопросу порядка удалений, не хочется спорить, (и тем более проверять ),
но, имхо, мне кажется, что как только Вы выполните удаление строчки (j-1), то та строка, которая была

Текст j

станет строкой j-1
поэтому удалять надо строчку, следующую за текстом,
она уже будет иметь индекс J

[evg_m]

станет строкой j-1
поэтому удалять надо строчку, следующую за текстом,
она уже будет иметь индекс J

согласен забыл про Delete(j-1)