Mehrere Dateien nach String durchsuchen

[sakura]

Mit FindFiles hast Du jetzt die Routine, welche nach allen Dateien in einem Verzeichnis sucht, welche Deiner Maske entsprechen.

FindFiles ruft jetzt die Routine Search auf, welche für eine bestimmte Datei überprüft, ob der gesuchte String darin vorkommt.

Delphi-Quellcode:

// unvollendetes Beispiel mit suche nach FText
procedure Search(aFileName: String);
begin
  with TStringList.Create do
  try
    LoadFromFile(aFileName);
    if Pos(FText, Text) > 0 then
      ShowMessage('Der Text wurde in der Datei ' + aFileName + ' gefunden.');
  finally
    Free;
  end;
end;

Das ist jetzt nur ein grobes Gerüst, sollte Dir aber weiterhelfen