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
