Volltextsuche mit Delphi

[Balosh]

Habe nun die Checkbox mit eingebaut aber wenn ich das Programm ausführe und die Checkbox markiere kommt ein Speicher Fehler:

=>Erste Gelegenheit für Exception bei $77060FB2. Exception-Klasse $C0000005 mit Meldung 'access violation at 0x77060fb2: write of address 0x74e4ddf5'. Prozess Suche.exe (5336)<=

ich habe keine Ahnung was den Fehler verursacht.

Hier auch mal der geänderte Code mit der Checkbox:

Code:

procedure TMainSuche.FileSearch(const PathName, FileName: string);
var Rec : TSearchRec;
    Path : string;

begin
  if Checkbox1.Checked = true then
  begin
    Path := IncludeTrailingBackSlash(PathName);
    try
      repeat
       if ((Rec.attr and faDirectory) = faDirectory) then
             FileSearch(Path, Rec.Name);
          until FindNext(Rec) <> 0;
    finally
      FindClose (Rec);
    end;
  end else begin
    Path := IncludeTrailingBackslash(PathName);
    if FindFirst (Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
    begin
      try
        repeat
          Listbox1.Items.Add(Path + Rec.Name);
        until FindNext (Rec) <> 0;
      finally
         FindClose (Rec);
      end;
    end;
  end;
end;

[baumina]

Wenn CheckBox1.Checked dann machst du kein FindFirst, greifst aber schon mal auf das nicht initialisierte Rec.attr zu -> *peng*.

[mkinzler]

Ich würde nur den Code der sich zwischen den beiden Versionen unterscheidet in der Fallunterscheidung getrennt verwenden.
In der 1. Bedingung fehlt das FindFirst()

if Checkbox1.Checked then reicht

[Balosh]

@ baumina

stimmt kein Wunder das es da crashed.

Zitat von mkinzler:

Ich würde nur den Code der sich zwischen den beiden Versionen unterscheidet in der Fallunterscheidung getrennt verwenden.
In der 1. Bedingung fehlt das FindFirst()

if Checkbox1.Checked then reicht

Jetzt steh ich auf dem Schlauch, was meinst du mit trennen?

[mkinzler]

Du hast 2 fast identische Schleifen. Es sollte ja auch mit einer gehen.

[Balosh]

Mhh Ok habe jetzt die Schleifen abgeändert aber nun bringt er mir kein Ergebnis mehr.

Code:

procedure TMainSuche.FileSearch(const PathName, FileName: string);
var Rec : TSearchRec;
    Path : string;

begin
  if FindFirst (Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
  if Checkbox1.Checked = true then
  begin
    Path := IncludeTrailingBackSlash(PathName);
    try
      repeat
       if ((Rec.attr and faDirectory) = faDirectory) then
             FileSearch(Path, Rec.Name);
          until FindNext(Rec) <> 0;
    finally
      FindClose (Rec);
    end;
  end else begin
    Path := IncludeTrailingBackslash(PathName);
    begin
      try
        repeat
          Listbox1.Items.Add(Path + Rec.Name);
        until FindNext (Rec) <> 0;
      finally
         FindClose (Rec);
      end;
    end;
  end;
end;

Hab ich da wieder ein Logikfehler drin und ich sehe ihn nicht bzw. einen Anfänger Fehler?

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