Проблема с ListBox ом

← →
TrollXP © (2003-05-22 08:30) [0]

Привет народ! У меня такая проблема: хочу в FileListBox"е удалить несколько строк и пишу
for i:=FileListBox1.ItemIndex to FileListBox1.SelCount do
FileListBox1.Items.Delete{i), но нихрена не получается! Мож кто подскажет??

← →
MBo © (2003-05-22 08:34) [1]

иди c конца (for .. downto), проверяя selected

← →
Song © (2003-05-22 09:30) [2]

>>Мож кто подскажет??
После удаления, строки сдвигаются.

← →
TrollXP © (2003-05-22 14:27) [3]

2 MBo
И так тоже не получается!?

← →
MBo © (2003-05-22 14:28) [4]

код?

← →
TrollXP © (2003-05-22 17:16) [5]

for i:=FileListBox1.ItemIndex downto FileListBox1.SelCount do n
FileListBox1.Items.Delete(i);

← →
clickmaker © (2003-05-22 17:24) [6]

Несколько строк - это как? Случайным образом, что-ли?
Если выделенных, то послушайся MBo
for i := List.Items.Count-1 downto 0 do begin
if List.Items[i].Selected then List.Items.Delete(i);
end;

← →
TrollXP © (2003-05-22 18:02) [7]

2 clickmaker
не бычит, компилятор ругается!

← →
Севостьянов Игорь © (2003-05-22 18:04) [8]

Как именно он ругается ? Здесь же нет телепатов

← →
TrollXP © (2003-05-22 18:17) [9]

Record, object or class type required

← →
Севостьянов Игорь © (2003-05-22 18:25) [10]

Блин - в каком месте кода

← →
TrollXP © (2003-05-22 18:27) [11]

тут - if List.Items[i].Selected then List.Items.Delete(i)

← →
VMcL © (2003-05-22 18:42) [12]

>TrollXP © (22.05.03 08:30)

N := FileListBox1.SelCount - FileListBox1.ItemIndex;
for i:= 0 to N do
FileListBox1.Items.Delete(FileListBox1.ItemIndex);

← →
TrollXP © (2003-05-22 18:46) [13]

Все равно не работает! Он удаляет либо сначала один, а потом по 2, по 3, либо сразу кусками, но только не те которые надо!

← →
clickmaker © (2003-05-22 18:47) [14]

Удалено модератором

← →
Севостьянов Игорь © (2003-05-22 19:15) [15]

Вот именно > TrollXP © (22.05.03 18:46)
Дело в том что при удалении он выделяет заново другой итем при этом кол-во их уменьшается - необходимо именно downto как показал > clickmaker © (22.05.03 18:47)

← →
clickmaker © (2003-05-22 19:38) [16]

clickmaker © (22.05.03 18:47)
Удалено модератором

Эээх, не понимают тут всей мощи русского языка. :)
Ну да ладно, все равно исправлюсь

for i := List.Items.Count-1 downto 0 do begin
if List.Items[i].Selected then List.Items.Delete(i);
end;

← →
clickmaker © (2003-05-22 19:38) [17]

← →
TrollXP © (2003-05-23 17:09) [18]

2 clickmaker
спасибо, всё сделал, только матюкатся не надо. работа. я в основном ночью. поэтому качелдан не варит :)
теперь другая проблема. при добавлении в список файлы добавляются не в конец. а по алфивиту. смотрел в справке свойство Sorted, но компилятор говорит. что такого не знает. помогите, плиз!

← →
Skier © (2003-05-23 17:12) [19]

> но компилятор говорит. что такого не знает. помогите, плиз!

Да быть этого не может ! Используй утилиту глаза.exe ...

← →
TrollXP © (2003-05-23 17:17) [20]

Если он не ругался, я б не спрашивал

← →
Skier © (2003-05-23 17:20) [21]

>TrollXP © (23.05.03 17:17)
Чудеса да и только !

← →
TrollXP © (2003-05-23 17:26) [22]

так мож чего посоветуешь?

← →
Skier © (2003-05-23 17:29) [23]

>TrollXP © (23.05.03 17:26)

> но компилятор говорит. что такого не знает. помогите, плиз!

Что он говорит, конкретно ?

← →
TrollXP © (2003-05-23 17:31) [24]

Undeclared identifier: "Sorted"

FileListBox1.Sorted:=false;

Ну и что же мы хотим, батенька ?
пишем в вопросе про ListBox, а используем TFileListBox...

type
THackFileListBox = class(TFileListBox);

//....................

begin
//....................
THackFileListBox(FileListBox1).Sorted := False;
//....................
end;

Ночь.. Благодарствую!

а методов типа ClearSelection или DeleteSelection там нету?

сорри DeleteSelected
есть оба - попробуй

это я насчет удаления - и никаких циклов не надо

спасибо, попробую

DeleteSelected только начиная с Д6. Впрочем, если залезть внутрь этой процедурки, то опять же, мы увидим уже всем поднадоевший цикл downto 0...

Проблема с ListBox ом Найти похожие ветки