FindFirst, FindNext

[eddy]

Hallo Nailor,

'C\:' kann jeden in den Wahnsinn treiben!!

Der Vollständigkeit halber sollte am Ende noch "FindClose" stehen.

Delphi-Quellcode:

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

mfg
eddy