Надо в RichEdit Удалить все строки между двумя пустыми

[Stas)))]

Всем привет Народ подскажите может кто сталкивался... Вобщем нада в RichEdit Удалить все строки между двумя пустыми причем пустые строки трогать не нада.... Бьюсь с етим не фига не выходит....

[Alar]

цикл, построчное сканирование и перекидывание во вторую RichEdit если пробел ставим флаг что дальше перекидывать не надо. например числовую или булевую переменную используем. если снова пробел, опять меняем флаг, и продолжаем копировать во вторую едит. потом в конце перемещаем из второй в первую.

Пробуй, если не получится выложи на форуме код, помогу.

[pu4koff]

var i: integer;
begin
for i := RichEdit.Lines.Count-1 downto 2 do
begin
if (RichEdit.Lines[i] = '')and
(RichEdit.Lines[i-2]='')then RichEdit.Lines.Delete(i-1);
end;

[Alar]

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

[Stas)))]

Эх долго мучался ничего не выходит По сути нада сделать вот чаво.... Есть какой-то текстовый фай открыть его нужно в RichEdit, затем с клавы ввести номер абзаца (в Edit) , в текстовом файле абзацы отделяются друг от друга пустыми (одной или нескольками) строками. Надо удалить абзац номер которого вводили с клавы (тока вот пустые строки трогать не нада), а если такого абзаца нет то вывести об етом сообщение через MessageDlg. ПЛИЗ ХЕЛП МИ!))))

[Stas)))]

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

var i: integer;
begin
for i := RichEdit.Lines.Count-1 downto 2 do
begin
if (RichEdit.Lines[i] = '')and
(RichEdit.Lines[i-2]='')then RichEdit.Lines.Delete(i-1);
end;

А вот ета штука удаляет одну пустую строку и все

[pu4koff]

Сообщение от Stas)))

А вот ета штука удаляет одну пустую строку и все

а у меня почему-то нормально это работает... только с последней строкой там проблемка (если последняя строка пустая, то она не учитывается, т.е. в Lines ее нету)

[Stas)))]

Дам такая проблема ни одна по условию нада абзацы посчитать еще, с етим трудность тоже возникает, если они разделяются несколькими пустыми строками и с первым абзацем тоже проблемка..... если перед ним пустые строки есть.....