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

CODE

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

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

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

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

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

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

CODE

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;