Volltextsuche mit Delphi

[mkinzler]

Delphi-Quellcode:

So funktioniert es

procedure TMainSuche.FileSearch(const PathName, FileName: string);
var Rec : TSearchRec;
    Path: string;
begin
  Path := IncludeTrailingBackSlash(PathName);
  try
    if FindFirst (Path + FileName, faAnyFile, Rec) = 0 then
    begin
      repeat
        if ((Rec.attr and faDirectory) = faDirectory) then
        begin
          if Checkbox1.Checked then
          begin
            if (Rec.Name <> '.') and (Rec.Name <> '..') then
              FileSearch( Path+Rec.Name , FileName);
          end;
        end
        else
          Listbox1.Items.Add(Path + Rec.Name);

      until FindNext(Rec) <> 0;
    end;
  finally
     FindClose (Rec);
  end;
end;