Как в TMemo1 удалять все строки начинающиеся с #

← →
OGR (2002-01-28 00:13) [0]

Подскажите пожайлуста....
Как в TMemo1 удалять все строки начинающиеся с символа # ?
Спасибо.

← →
Jano (2002-01-28 02:51) [1]

I := 1; while I <= Memo1.Count do begin if Memo1.Lines.Strings[I][1] = "#" then Memo1.Lines.Delete(I - 1) else Inc(I); end;

← →
panov (2002-01-28 07:10) [2]

>Jano © (28.01.02 02:51)
Неправильно. В цикле возникнет ошибка (index of bound).
Правильно так:

for i := 0 to Memo1.Count-1 do
begin
if Memo1.Lines[i][1] ="#" then Memo1.Lines.Delete(i);
end;

← →
Mbo (2002-01-28 07:33) [3]

неправильно ;(

у panov © надо исправить первую строку
for i := Memo1.Count-1 DOWNTO 0 do

у Jano
I := 0;
while I < Memo1. Lines.Count do begin
if Memo1.Lines[I][1] = "#" then
Memo1.Lines.Delete(I)
else
Inc(I);
end;

← →
Mbo (2002-01-28 07:41) [4]

sorry, в варианте с for
for i := Memo1.Lines.Count-1 DOWNTO 0 do
...
причем этот способ несколько быстрее для больших списков
(меньшие количества памяти сдвигаются с помощью Move при Delete)

← →
panov (2002-01-28 07:44) [5]

Да уж, прошу прощения за море очепяток.
Спасибо Mbo за вовремя внесенные исправления:-)

← →
Anatoly Podgoretsky (2002-01-28 09:08) [6]

И все равно не совсем правильно, будет ошибка если Length(Memo1.Lines[I][1])<1
Надо или проверку длины или POS()=1

Как в TMemo1 удалять все строки начинающиеся с # Найти похожие ветки