Such function in FileListBox Funktioniert nicht richtig

[DeddyH]

Wenn Du in einer Schleife löschst, musst Du immer von hinten löschen, da sich der Index verschiebt. Ich habe das mal ein wenig umgeschrieben:

Delphi-Quellcode:

procedure TForm4.edit_sucheChange(Sender: TObject);
var i : integer;
begin
  //Wenn das edit feld nicht leer ist..
  if length(edit_suche.Text) > 0 then
    begin
      //ständiges Neuzeichnen verhindern
      FileListBox1.Items.BeginUpdate;
      try
        //auf letztes Element positionieren
        i := FileListBox1.Count - 1;
        while i >= 0 do
          begin
            //wenn Dateiname nicht mit dem Edit.Text beginnt
            if (Pos(edit_suche.Text, FileListBox1.Items[i]) <> 1) then
              begin
                //markieren und löschen
                FileListBox1.Selected[i] := true;
                FileListBox1.DeleteSelected;
              end;
            // Wechsel auf die vorherige Datei
            i := i - 1;
          end;
      finally
        //Aktualisierte Daten wieder anzeigen
        FileListBox1.Items.EndUpdate;
      end;
    end;
end;

[edit] Obwohl: ich sehe gerade, Deine Variante müsste auch funktionieren, wenn Du nach dem DeleteSelected i nicht erhöhst. [/edit]