Beim Suchen gefundene Elemente aus Memo löschen

[DeddyH]

Anyway, versuch mal diese Funktion:

Delphi-Quellcode:

function FoundFileInDirectory(FileName, DirName: string): Boolean;
var Rec: TSearchRec;
begin
  Result := False;
  FileName := ExtractFileName(FileName);
  DirName := IncludeTrailingPathDelimiter(DirName);
  if FindFirst(DirName + '*.*', faAnyFile, Rec) = 0 then
    try
      repeat
        if (Rec.Attr and faDirectory) = faDirectory then
          begin
            if (Rec.Name <> '.') and (Rec.Name <> '..') then
              Result := FoundFileInDirectory(FileName, DirName + Rec.Name);
          end
        else
          Result := AnsiStrIComp(PChar(FileName),PChar(Rec.Name)) = 0;
      until (FindNext(Rec) <> 0) or Result;
    finally
      FindClose(Rec);
    end;
end;