Findfirst,Findnext schulung

[SirThornberry]

@DaddyH: fast richtig. FindClose ist nicht notwendig wenn FindFirst fehl schlägt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var Rec: TSearchRec; 
begin 
  if FindFirst('C:\Windows\*.ini',faAnyFile,Rec) = 0 then 
  begin
    repeat 
      ListBox1.Items.Add(Rec.Name); 
    until FindNext(Rec) <> 0; 
    FindClose(Rec); 
  end;
end;