Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Вниз

Как в 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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
1-32269           Ig                    2002-01-25 22:25  2002.02.11  
Как создать кнопку на основе картинки?


1-32197           sasa_verman           2002-01-29 14:32  2002.02.11  
TClientDataSet нужно заполнить ланими из масива, а сам ДатаСет никчему не привязан


3-32146           Ghost!                2002-01-14 17:30  2002.02.11  
Нумерация строк


1-32234           Andger                2002-01-27 15:23  2002.02.11  
Delphi виснет при палитре > 16 цветов


1-32291           serjant               2002-01-28 11:11  2002.02.11  
Сохранение QReport