Find item i ListBox

Kode 

var
  I: Integer;
begin
for I := listbox1.Count-1 downto 0 do
begin
  if (pos('shell',listbox1.Items[ I ])>0) then listbox1.Items.Delete(i);
end;

Du iterere gennem listen og sammenligner hver item:

Kode 

var
  I: Integer;
begin
for I := listbox1.Count-1 downto 0 do
begin
  if (pos('shell',listbox1.Items[ I ])>0) then listbox1.Items.Delete(i);
end;

MvH

Stefan Svensson
http://fusket.frac.dk

[Redigeret d. 13/07-04 22:01:46 af Stefan Svensson]

Kode 

  if Listbox1.Items.IndexOf('Shell') > -1 then
    Listbox1.Items.Delete(Listbox1.Items.IndexOf('Shell'));