Beim Suchen gefundene Elemente aus Memo löschen

[DeddyH]

Versuch es mal damit (kann allerdings ein bisschen dauern):

Delphi-Quellcode:

procedure FilterFiles(const FileList: TStrings; const Pfad: string;
                      const ProgressBar: TProgressBar = nil);
var i: Integer;
begin
  if Assigned(ProgressBar) then
    begin
      ProgressBar.Position := 0;
      ProgressBar.Max := FileList.Count;
    end;
  FileList.BeginUpdate;
  for i := Pred(FileList.Count) downto 0 do
    begin
      if FoundFileInDirectory(FileList[i],Pfad) then
        FileList.Delete(i);
      if Assigned(ProgressBar) then
        ProgressBar.Position := ProgressBar.Position + 1;
      Application.ProcessMessages;
    end;
  FileList.EndUpdate;
  if Assigned(ProgressBar) then
    ProgressBar.Position := 0;
end;

Ein Beispielaufruf:

Delphi-Quellcode:

procedure TForm1.btnFilterClick(Sender: TObject);
begin
  FilterFiles(mmoFiles.Lines,Pfad,pb1);
end;

[Stamper]

Ich hab jetzt diese Routine entworfen:

Delphi-Quellcode:

  For lcount := highcount downto 0 do
  begin
    listbox3.Items.Add(inttostr(lcount));
    For lcount2 := 0 to highcount2 do
    begin
      delfile := ExtractFileName(ListBox1.Items[lcount2]);
      if (delfile = memo1.Lines[lcount]) then
      begin
        memo1.Lines.Delete(lcount);
      end;
    end;
  end;

Allerdings muss ich die Prüfung 2 mal durchführen, denn sonst erkennt er den Wert "lcount" innerhalb der 2. Schleife nur für den Wert "0". Aber naja ich werd das jetzt so anwenden.

Vielen Dank für eure Hilfe!