Главная страница
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.013 c
14-31989
ребенок
2002-09-14 16:02
2002.10.10
Регистрация


4-32055
SPeller
2002-08-22 20:44
2002.10.10
Скроллбар


1-31727
yaJohn
2002-09-30 12:36
2002.10.10
Вставить ActiveX в документ.


14-31995
JohnnyJ
2002-09-17 04:49
2002.10.10
Давно мучает вопрос %))))))))


6-31926
Dimich1978
2002-08-12 09:21
2002.10.10
Вопрос про нахождение всех компьютеров в сети.