Volltextsuche mit Delphi

[baumina]

Wenn du im FindFirst keine Verzeichnisse suchst, wirst du natürlich auch keine finden.

[mkinzler]

Immer noch zuviel doppelt.

Delphi-Quellcode:

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
            FileSearch(Path, Rec.Name)
        end
        else  
          Listbox1.Items.Add(Path + Rec.Name);   

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

[Balosh]

Code:

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
            FileSearch(Path, Rec.Name)
        end
        else 
          Listbox1.Items.Add(Path + Rec.Name); 

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

So bin ich wieder am Anfang und er sucht nur Dateien im Ordner, er soll aber wenn die Checkbox aktiviert ist auch die Unterordner mit einbeziehen.

[mkinzler]

Das liegt aber eher an Deinem Aufruf auf die Unterordner:

Müsste
 FileSearch(Path+Rec.Name, Filename); lauten.

[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;

[Balosh]

Zitat von 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;

mhh nicht wirklich er ignoriert immer noch die Unterordner komplett. Ich geh nochmals alles von oben nach unten durch vielleicht finde ich etwas.

[mkinzler]

Bei mir funktioniert der Code