Volltextsuche mit Delphi

[Balosh]

Zitat von himitsu:

Ich glaub du bist hier in dem Unterforum falsch?

Wusste nicht ob ich hier richtig bin. Wenn die Aussage stimmt bitte ich einen der Mods den Thread zu verschieben.

Nun zu meiner Frage bzw. Problem

Habe das Programm jetzt soweit am laufen das es die Unterordner und Dateien anzeigt. Nun will ich aber noch dass das Programm in den Dateien nach Wörter (Strings) sucht. Dazu habe ich noch eine zusätzlich Combobo in das Formular "eingebaut". Nun meine Frage wie kombiniere ich die Zwei Aufgaben (Suche nach Dateien und Suche In Dateien). Habe schon etwas angefangen (auskommentiert) aber komme nun nicht weiter:

Code:

procedure TMainSuche.FileSearch(const PathName, FileName: string);
var Rec : TSearchRec;
    Path: string;
    { *sl: TStringList;* }
    { *i: Integer;* }
begin
  Path := IncludeTrailingBackSlash(PathName);
  try
    { *sl := TStringList.Create;* }
    { *sl.LoadFromFile(Path);*}
    if FindFirst (Path + '*', faAnyFile, Rec) = 0 then
    begin
      repeat
        if (Rec.attr in [faDirectory, (faDirectory+faArchive)]) then
        begin
          if Checkbox1.Checked then
          begin
            if (Rec.Name <> '.') and (Rec.Name <> '..') then
              FileSearch( Path+Rec.Name , FileName);
          end;
        end else
          if MatchesMask( Rec.Name, FileName) then
            Listbox1.Items.Add(Path + Rec.Name);
      until FindNext(Rec) <> 0;
    end;
  finally
     FindClose (Rec);
  end;
end;

Stimmt das was ich bisher eingeben habe (ich weiß ist nicht viel)?