DELPHI: ListBox?

[Trahten]

DELPHI: надо просканить весь ListBox и найти символ '.', если он найден (символ) тогда удалить эту строчку из ListBox

[Лесандр]

Код Выделить Развернуть


for i:=1 to ListBox.Items.Count-1 do
begin
if ListBox.Items.Strings[i]='.' then {Делаем что нам надо}......
end;


Далее можно запомнить индексы всех найденых элементов с '.', а затем поочередно удалить их.....

[f_u_EGO]

есть ещё способ. по идее, должен работать быстрей, потому что посылаем команду прямо LIstBox'у:

str:='.';
ListBox.Perform(LB_SELECTSTRING, -1, longint(str));
if ListBox.ItemIndex<>-1 then // что-то нашёл
begin
...
end;

будет работать, если строка начинается с str, причём str может быть любой строкой.

[Лесандр]

м-м-м, кстати, мысль......
можно на цикл прикрутить и выйдет дело:

Код Выделить Развернуть


str:='.';
ListBox.Perform(LB_SELECTSTRING, -1, longint(str));
while ListBox.ItemIndex<>-1 do
begin
ListBox.Delete(ListBox.ItemIndex);
ListBox.Perform(LB_SELECTSTRING, -1, longint(str));
end;
end;