Filter für Listbox einträge

[quakergod]

hi, ich mache einen kleinen streamplayer und habe die streams in eine listbox geschrieben.

jetzt versuch ich einen filter zu machen, in dem man z.bsp "rock" eingibt und alle listbox einträge die nicht "rock" enthalten werden gelöscht..

soweit bin ich gekommen:

Delphi-Quellcode:

procedure TForm1.edit_filterChange(Sender: TObject);
var i: integer;
begin
for i := lb_streams.Items.Count-1 downto 0 do
begin
  if pos(edit_filter.text, lb_streams.Items.Strings[i]) > 0 then
  begin
  lb_streams.Items.Delete(i);
  end;
end;
end;

leider ist es jetzt andersrum, die einträge die stehen bleiben sollten werden gelöscht, und so richtig funktioniert das ganze nicht..

kann mir da jemand helfen?

[Hansa]

Zitat von quakergod:

..und alle listbox einträge die nicht "rock" enthalten werden gelöscht..

Du willst also etwas eingeben, um alles zu löschen, was gerade da nicht drin ist ? 8)

  if pos(edit_filter.text, lb_streams.Items.Strings[i]) > 0 then Dann darfst du aber nicht alles löschen, was vorhanden ist. >0 heißt vorhanden und =0 nicht vorhanden.

[St.Pauli]

Hi quakergod,

hatte dein Problem (wollte halt nur alle löschen, die das wort enthalten...) genau gestern.
Schau dir mal das Thema hier an (Kam zwar mit meiner Überschrift nicht ganz auf den Punkt, ist aber das gleiche prob) --> hier klicken