Mehrere Dateien nach String durchsuchen

[wwerner]

Delphi-Quellcode:

EditDatei.Text:=s+':\*.txt'; 
If FindFirst(EditDatei.Text,faAnyfile,searchrec)=0 
  then 
    begin 
      Display; //Was ist das?
    end 
  else 
    begin 
      ShowMessage('Nichts gefunden'); 
      EditCharge.Clear; 
      exit; 
   end; 
AssignFile(f,EditDatei.text); // EditDatei.text ist z.B c:\*.txt das kann man nicht öffen