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;