Datei durchsuchen

[Kompon Ente]

Moin allerseits *gähn*

Folgendes:

Delphi-Quellcode:

if FindFirst(s + '/*.*', faAnyFile - faDirectory, sr) = 0 then
  begin
    ListBox1.Items.Add(sr.Name);
    while FindNext(sr) = 0 do
      ListBox1.Items.Add(sr.Name);
  end;
  FindClose(sr);

Diese Prozedur listet mir jeden File, in dem eines der eingebenen Wörter vorhanden ist.

Sprich: Wenn ich "hjkl" eingebe, sucht er alle Wörter, in denen ein "h" ist, ein "j", ein "k" und ein "l"!

Jedoch sollen nur die kompletten Wörter gesucht werden - also soll "hjkl" als ganzes gesucht werden.

Was muss ich ändern, damit das klappt?

Weil danach möchte ich mit AssignFile die Wörter durchgehn, die ich zuvor in eine StringList geschrieben hab - jede Datei nach gesuchtem Wort untersuchen!