Beim Suchen gefundene Elemente aus Memo löschen

[DeddyH]

Hallo und Willkommen in der DP

Versuch es doch mal so:

Delphi-Quellcode:

procedure DeleteExistingFilesFromList(sPath: string; const FileList: TStrings);
var i: Integer;
begin
  FileList.BeginUpdate;
  sPath := IncludeTrailingPathDelimiter(sPath);
  for i := FileList.Count - 1 downto 0 do
    if FileExists(sPath + FileList[i]) then
      FileList.Delete(i);
  FileList.EndUpdate;
end;

Beispielaufruf:

Delphi-Quellcode:

procedure TForm1.btnClearClick(Sender: TObject);
begin
  DeleteExistingFilesFromList('C:',mmoFiles.Lines);
end;