Форум: "Основная";
Поиск по всему сайту: 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.022 c
7-32357           Dankin                2001-11-05 03:44  2002.02.11  
Помогите пожалуйсто, если кто знает КАК МОЖНО УЗНАТЬ КОЛИЧЕСТВО УСТАНОВЛЕННОЙ ВИДЕО ПАМЯТИ НА КАРТОЧКЕ, И можноли узнать количество свободной памяти.


1-32252           67108864              2002-01-26 19:09  2002.02.11  
Console - textcolor.


4-32374           iyalosovetsky         2001-12-05 19:08  2002.02.11  
авторизация в w2k


14-32334          petr_v_a              2001-12-21 17:13  2002.02.11  
Алгоритм подсчета контрольной цифры ИНН


3-32132           chelobaka             2002-01-15 16:37  2002.02.11  
Как избежать появления окна с запросом на ввод имени и пароля