Wenn Du hier
Delphi-Quellcode:
if MatchesMask( Rec.Name, FileName) then
Listbox1.Items.Add(Path + Rec.Name);
die gefundenen Dateien in eine Listbox einträgst, dann kannst Du ebensogut hier Deine Suche starten
Delphi-Quellcode:
if MatchesMask( Rec.Name, FileName) then
begin
Listbox1.Items.Add(Path + Rec.Name);
PositionofText:=FindTextinFile(Filename,Texttofind);
end;
eine weitere Möglichkeit wäre es om OnClick-Event der Listbox (hoffentlich gibt's das) die Textsuche einzubinden.
Gruß
K-H