Volltextsuche mit Delphi

[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

Delphi-Quellcode:

 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:

Zitat von mkinzler (Beitrag 1299069)

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

[Balosh]

Ok das ist merkwürdig. Dann liegt der Fehler wohl an einer anderen Prozedur im Gesamtcode bei mir. Nur wo das ist nun die Frage.:?

[Balosh]

Also ich finde nirgends etwas was verhindern könnte dass das Programm nicht richtig läuft hier mal den kompletten Code:

Code:

unit Volltextsuche;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, FileCtrl, System.IOUtils ,
  Vcl.Buttons;

type
  TMainSuche = class(TForm)
    cbSuche: TComboBox;
    lblSuche: TLabel;
    cbZiel: TComboBox;
    lblZiel: TLabel;
    btnZiel: TButton;
    BBstart: TBitBtn;
    ListBox1: TListBox;
    CheckBox1: TCheckBox;
    BitBtn1: TBitBtn;
    procedure btnZielClick(Sender: TObject);
    procedure BBstartClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);

  private
    { Private-Deklarationen }
    procedure FileSearch(const PathName, FileName : string);
  public
    { Public-Deklarationen }
  end;

var
  MainSuche: TMainSuche;
  OverrideCbBAdr: boolean = false;

implementation

{$R *.dfm}
uses FileInfo;

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;


procedure TMainSuche.BitBtn1Click(Sender: TObject);
begin
ListBox1.Clear;
end;

procedure TMainSuche.btnZielClick(Sender: TObject);
var
 Directory: string;
begin
  Directory := 'C:\';
    if SelectDirectory('Bitte ein Verzeichnis wählen.','',Directory) then
      begin
        if not OverrideCbBAdr then
          begin
            OverridecbBAdr := true;
            cbZiel.Items.Insert(0,'');
          end;

  cbZiel.Items.Delete(0);
  cbZiel.Items.Insert(0,Directory);
  cbZiel.ItemIndex := 0;
  end;
end;

procedure TMainSuche.BBstartClick(Sender: TObject);
begin
  ListBox1.Clear;
  FileSearch(cbZiel.Text, cbSuche.Text);
end;
end.

Findet ihr da etwas?

[mkinzler]

Zu was die Zwischenspeicherung des Pfades in einer ComboBox? Wenn schon, warum dann kein Label oder Edit? (es wird ja immer in den 1. Eintrag geschrieben)

[p80286]

nee, das geht ja auch nicht!
Angenommen Du suchst in

Code:

C:\

nach

Code:

*.sql

dann sucht Deine Routine in

Code:

C:\

namch einer Datei die die Bedingung

Code:

*.sql

erfüllt, da dies nicht der Fall ist (höchstwahrscheinlich) verabschiedet sich Deine Suche gleich wieder.
wenn Du rekursiv suchen willst, dann mußt Du auf jeden Fall die (möglichen) Verzeichnisse

Delphi-Quellcode:

if Checkbox1.Checked then
           begin
             if (Rec.Name <> '.') and (Rec.Name <> '..') then
               FileSearch( Path+Rec.Name , FileName);
           end;

extra behandeln.
Übrigens ist der Rückbezug auf eine andere Komponente des Forms nicht unbedingt der Weisheit letzer Schluß. Besser wäre es der Procedure gleich ein

Delphi-Quellcode:

recursiv:boolean

mitzugeben!

Gruß
K-H

[Balosh]

Habe das Problem mit dem Unterordner wie folgt gelöst. :)

Code:

procedure TMainSuche.FileSearch(const PathName, FileName: string);
var Rec : TSearchRec;
    Path: string;
begin
  Path := IncludeTrailingBackSlash(PathName);
  try
    //if FindFirst (Path + FileName, faDirectory, Rec) = 0 then
    if FindFirst (Path+'*', faAnyFile, Rec) = 0 then
    begin

Das auskommentierte ist der alte Befehl und das direkt darunter der neue. Und so beachtet das Programm dann auch die Unterordner. Ich halte euch weiter auf dem laufenden bzw. falls weitere Probleme auftauchen melde ich mich hier. Danke für eure bisherige Hilfe.