Hallo,

momentan arbeite ich an einem Programm, dass ein vom User bestimmtes Verzeichnis durchsucht (alle Dateien - nicht Ordner - liest) und dann in den jeweiligen Dateien durchguckt, ob das gesuchte Wort drin ist.

Zur Zeit ist das Programm so aufgebaut, dass immer nur die Dateien des aktuellen Verzeichnis durchsucht werden..

Ich möchte aber, dass auch Unterordner des gewählten Verzeichnisses durchsucht werden.

Hat da jemand eine Hilfestellung? Kein Lösungansatz, nur eine kleine Anregung...?

Komme da atm nicht weiter..

FindAllFiles: Recurse auf true setzen.


Nachtrag: Immer diese Tags...

Ich habe demletzt für mich sowas ähnliches geschrieben. Es läd eine ganze Ordnerstruktur in ein Menü rein:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMainForm.addDir(dirinfo: TOrdnerInfo);
var temp: TMenuItem;
    procedure addItems(const pfad,filter: string; const Attr: integer; MenParent: TMenuItem);
    var sr: TSearchRec;
        temp: TMenuItem;
    begin
        if FindFirst(pfad + filter, attr, sr) =0 then
        repeat
            if (sr.Name ='.') or (sr.Name ='..') then continue;
            temp :=TMenuItem.Create(popupmenu1);
            temp.Caption :=sr.Name;
            if sr.Attr =faDirectory then addItems(pfad + sr.Name + '\', filter, Attr, temp)
            else temp.OnClick :=DateiClick;
            MenParent.Add(temp);
        until FindNext(sr) <> 0;
    end;
begin
    temp :=TMenuItem.Create(PopupMenu1);
    temp.Caption :=dirinfo.ItemNamed['label'].Value;
    addItems(IncludeTrailingPathDelimiter(dirinfo.ItemNamed['pfad'].Value), dirinfo.ItemNamed['filter'].Value, dirinfo.ItemNamed['Attr'].IntValue, temp);
    with Popupmenu1.Items.Find('Verzeichnisse') do
    begin
        Add(temp);
        Visible :=true;
    end;
end;

dirinfo ist hier einfach nur ein xml-Element, aus dem ich pfad, filter usw. auslese. Da kannst du natürlich auch was "normales" reinschrieben.

hallo

müsste das nicht irgendwie so gehen

zusammenfalten · markieren

Delphi-Quellcode:

function getDir(path: string):TStrings;
var
  sr : TSearchRec;
  newPath : string;
begin
    result := TStringList.Create;
    if FindFirst(includeTrailingPathDelimiter(path)+'*.*', faAnyFile, sr) = 0 then
    repeat
      if sr.Attr = faDirectory then
      begin
          if (sr.name<>'..') and (sr.name<>'.') then
          begin
            newPath := includeTrailingPathDelimiter(path)+sr.Name;
            result.Append(newPath+sr.Name);
            result.AddStrings(getDir(newPath));
          end;
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
end;

gruß

stefan

Hi!

Hier mal meine aktuelle Funktion:

zusammenfalten · markieren

Delphi-Quellcode:

function TFrmMain.sucheWort(aDatei: String): Boolean;
var
  F: TextFile;
  line: String;
begin
  Result := False;

  try
    AssignFile(F, FPfad + aDatei);
    {$I-}
      Reset(F);
    {$I+}
    if not (IOResult <> 0) then
      while (not Eof(F)) do
      begin
        Readln(F, line);
        if (pos(UpperCase(FSuche), line) > 0) or (pos(FSuche, line) > 0) then
        begin
          Result := True;
          Break;
        end;
      end;
  finally
    {$I-}
      CloseFile(F);
    {$I+}
  end;
end;

Was muss ich denn ändern, damit auch die Dateien der Unterverzeichnisse angezeigt werden?

@komponente:

der link den dir matze genannt hat, bietet dir alles was du brauchst.

Zitat:

Was muss ich denn ändern, damit auch die Dateien der Unterverzeichnisse angezeigt werden?

1.) alle dateien mit o. g. funktion suchen, bspw. in TStringList od. Array speichern.
2.) for schleife dieser dateien an deine suchewort prozedur senden.
3.) fertig

Zitat von Matze:

FindAllFiles: Recurse auf true setzen.

Kann ich nur empfehlen .. klappt recht gut und man hat alles geich in einer schönnen/handlichen TStringlist

..............

Sorry, ich versteh Euch, aber ich weiß nicht wie ich's lösen kann

Kann es sein das du eine KomponEnte suchst ?


Hier eine Fertiglösung.