FindFirst, FindNext

[Christian Seehase]

Moin eddy,

wenn Du es ganz vollständig haben willst

Delphi-Quellcode:

procedure TForm1.MyNameClick(Sender: TObject); 
var 
  srec : TSearchRec; 
begin 
  .... 
  if FindFirst('C:\Pfad\*.*', faAnyFile, srec) = 0 then begin 
    try
      repeat 
        .... 
        // jedemenge Befehle 
        .... 
      until FindNext(srec) <> 0; 
    finally
      FindClose(srec); 
    end;
  end; 
  .... 
end;

try/finally (Resourcenschutzblock) um sicherzustellen, dass die durch den erfolgreichen Aufrufe von FindFirst belegten Resourcen auch wieder freigegeben werden.
Das FindClose hab' ich etwas nach oben gerückt, da es ja nur bei erfolgreichem Aufruf von FindFirst notwendig ist.