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




Вниз

EStringlistError 


Lamok (real)   (2001-12-28 23:23) [0]

Всем доброго времени суток !!!
Постите если такой вопрос уже звучал, но очень надо !!!
Ну там прога большая и тут типа удаляется запись из лист бокса если
таковая есть если запись не первая то все работает а если удаляемая запись
первая то ошибку выдает говрит list index out of baunds(1) помоему, так в чем
проблема ??

Приивожу кусок кода:

if p="/e" then
begin
delete(s,1,2);
for e:=0 to lb1.Items.Count-1 do
begin
if s=lb1.Items.Strings[e] then <<стрелку компелятор тут ставит
begin
lb1.Items.Delete(e);
lb2.Items.Delete(e);
end;
end;
end;



Всем заранее спасибо !!



MBo   (2001-12-29 06:35) [1]

ПОТОМУ ЧТО количество записей при удалении УМЕНЬШАЕТСЯ.
сделай
for e:=lb1.Items.Count-1 downto 0 do




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




Наверх





Память: 0.71 MB
Время: 0.016 c
1-52525           Beat                  2001-12-27 10:21  2002.01.17  
TIcon 16x16 а не 32x32?


1-52557           AlexBel               2001-12-28 13:12  2002.01.17  
Перемещение фокуса между компонентами


6-52623           Leviathan             2001-10-20 18:01  2002.01.17  
IdFTP из Indy


1-52591           Zabrodin_Lex          2001-12-27 12:37  2002.01.17  
проблема с reset() в методе OBJECTа


14-52653          lel                   2001-11-22 11:37  2002.01.17  
Не понял библиотека ЕhLib , теперь небесплатная и бех исходников что ли???