Delphi-Quellcode:
if MatchesMask( Rec.Name, FileName) then
begin
Listbox1.Items.Add(Path + Rec.Name);
PositionofText:=FindTextinFile(Filename,Texttofind);
end;
Das war der entscheidende Hinweis. Das Programm läuft jetzt einwandfrei und liest in *.txt und *.pas Dateien ohne Probleme und gibt die jeweiligen Dateien in der Listbox an. Nun will ich dieses Problem mit den *.dfm Dateien lösen. Hat da jemand schon Erfahrung mit gemacht und kann mir da ein paar Tipps und Hinweise geben?