Nach Dateien suchen

[Dragon27]

Hallo,

habe nun heute schon mehrere Möglichkeiten gesehen wie man nach Dateien suchen kann. Jedoch hab ich das Ganze nicht so ganz verstanden. Ich möchte eigentlich nur ein Verzeichnis nach einer Datei durchsuchen. Also z. B. wenn ich in der Suche "Tomat" eingebe dann sollen mir folgende Dateien angezeigt werden:

-Tomate.mp3
-Tomatensuppe.wav
-etc..

Wer kann mir da ne Lösung sagen?

Danke...


Dragon27

P.s.: Vielleicht sollte man noch eine Maske eingeben können für *.wav und *.mp3.

[semo]

tsearchrec aus den sysutils sollte dir helfen
oder du schaust dir einmal twin32finddata (windowsapi) an.

eine suche nach diesem thema in diesem forum/google bringt dir zig ergebnisse...

[Dragon27]

Hallo,

danke für deine Antwort nur wie gesasgt ich versteh das Ganze nicht so.....

ich möchte doch im Prinzip nur in ner Listbox dann die Dateien angezeigt bekommen.....

Danke

[semo]

"verstehe ich nicht" gibts nicht - dann hat man sich noch nicht ausreichend mit der materie auseinandergesetzt.

man gibt einen pfad an ab dem man suchen will,
nutzt tsearchrec, findfirst, findnext, prüft die gefundenen sachem it faanyfile oder fafolder und gibt ergänzt bei einem ergebnis die listbox mit listbox.items.add(...)

[Hawkeye219]

Hallo Dragon27,

vielleicht enthält die Komponente TFileListBox bereits alles, was du benötigst.

Gruß Hawkeye

[DGL-luke]

Hallo,

die Verwendung von TSearchRec ist eigentlich ganz einfach. Trotzdem hier ein Beispiel für dich.

Delphi-Quellcode:

function SearchMask(Root: string; Mask: string; Recursively: Boolean = false): TStrings;
var SRec: TSearchRec;
    FindPath: string;
begin
  Result := TStringList.Create;
  Root := IncludeTrailingPathDelimiter(Root) // abschließenden Backslash hinzufügen
  FindPath := Root + Mask;
  FindFirst(FindPath, faDirectory, SRec); //Suche initialisieren
  repeat
    if (SRec.Attr and faDirectory <> 0) and Recursively then
      Result.AddStrings(SearchMask(Root + SRec.FileName + '\' + Mask)) //rekursieren
    else
      Result.Add(Root + SRec.FileName); //Kompletten Dateipfad zum Ergebnis hinzufügen
  while FindNext(SRec) = 0; //FindeNext gibt 0 zurück wenn es keinen Fehler gibt
  FindClose(SRec); //Ende der Suche
end;

Du kannst das so in eine Listbox bringen:

Delphi-Quellcode:

  ListBox1.Items.AddStrings('C:\irgendwo\','Musik*');

Optional werden auch alle unterordner durchsucht.

[Hawkeye219]

Lukas, du solltest den Code noch einmal prüfen, der Compiler wird ihn inklusive Beispielaufruf zurückweisen. Zudem erzeugen die rekursiven Aufrufen Stringlisten, die nicht wieder freigegeben werden.

Gruß Hawkeye

[DGL-luke]

ok... mach ich... :gruebel:

EDIT: hast recht... waren einige unangenehme sachen drin...

Delphi-Quellcode:

function TForm2.SearchMask(Root: string; Mask: string; Recursively: Boolean = false): TStrings;
var SRec: TSearchRec;
    FindPath: string;
    Temp: TStrings;
begin
  Result := TStringList.Create;
  Root := IncludeTrailingPathDelimiter(Root); // abschließenden Backslash hinzufügen
  FindPath := Root + Mask;
  FindFirst(FindPath, faDirectory, SRec); //Suche initialisieren
  repeat
    if (SRec.Attr and faDirectory <> 0) and (SRec.Name <> '.') and (SRec.Name <> '..') and Recursively then
      begin
        Application.ProcessMessages;
        Temp := SearchMask(Root + SRec.Name,Mask,true);
        Result.AddStrings(Temp); //rekursieren
        Temp.Free;
      end
    else
      Result.Add(Root + SRec.Name); //Kompletten Dateipfad zum Ergebnis hinzufügen
  until FindNext(SRec) <> 0; //FindNext gibt 0 zurück wenn es keinen Fehler gibt
  FindClose(SRec); //Ende der Suche
end;

dazu hätt ich jetzt aber selber ne Frage:

Kann das sein, dass der die Verzeichnisse auch nur rausgibt, wenn sie mit der Maske übereinstimmen?

[Hawkeye219]

Ja, normalerweise benötigt man zwei Durchläufe pro Verzeichnis. Im ersten werden die Unterordner gesucht, im zweiten die Dateien (siehe hier). Daß es aber auch mit einem Durchlauf geht, zeigt dieser Beitrag.

Gruß Hawkeye

[Christian Seehase]

Moin Lukas,

ich hätte da ein paar Verbesserungsvorschläge ;-)

Bei FindFirst prüfst Du nicht, ob der Aufruf erfolgreich war.
Resourcenschutzblock fehlt.
TStrings würde ich nicht als Rückgabewerte nehmen, sondern als Parameter übergeben. Als Rückgabewert einer Funktion handelt man sich zu leicht ein Speicherleck ein.