Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.10;
Скачать: CL | DM;

Вниз

Листбокс   Найти похожие ветки 

 
anod ©   (2002-08-24 10:42) [0]

Пытаюсь удалить из листбокса выделенные строки, если количество выделенных меньше половины количества строк в листбоксе, то все нарамльна, а если ббольше, то выдается ошибка "List index out of bounds"

procedure plistToPlayList(Handle: HWND; list: TStrings);
var i:integer;
begin
List.BeginUpdate;
SendMessage(handle, LB_RESETCONTENT, 0, 0);
for i:= 0 to list.Count-1 do begin
SendMessage(handle,LB_ADDSTRING,0,Integer(PCHAR(IntToStr(i+1)+". "+ExtractFileName(list[i]))));
end;
List.EndUpdate;
end;

procedure deleteselected(Handle: THandle; list: TStrings);
var i:integer;
begin
if SendMessage(handle, LB_GETSELCOUNT, 0, 0)>0 then begin
for i:= 0 to list.count-1 do
if SendMessage(handle, LB_GETSEL, i, 0)>0 then list.Delete(i);
plistToPlayList(Handle, List);
end;
end;


 
Anatoly Podgoretsky ©   (2002-08-24 11:14) [1]

for i:= list.Count-1 downto 0 do begin


 
anod ©   (2002-08-24 12:07) [2]

Спасибо, а почему так???


 
Song ©   (2002-08-24 14:44) [3]

Потому что строки сдвигаются после удаления.


 
Anatoly Podgoretsky ©   (2002-08-24 14:58) [4]

у тебя 10 строк, две ты удалил, как думаешь что будет с индексом 8 или 9



Страницы: 1 вся ветка

Текущий архив: 2002.10.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
1-31772
seu
2002-10-01 16:36
2002.10.10
Обработка исключений в COM+


1-31811
WFox
2002-10-02 12:44
2002.10.10
Моноширный Шрифт


14-31991
alexsandri
2002-09-16 21:31
2002.10.10
мужики даваи потрепимся на тему


1-31884
alf_
2002-09-28 17:54
2002.10.10
система координат


7-32025
GydruS
2002-08-01 09:34
2002.10.10
Как точно отсчитывать время в 5 миллисекунд?