Findfirst,Findnext schulung

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Rec: TSearchRec;
    i: integer;
begin
  i := FindFirst('C:\Windows\*.ini',faAnyFile,Rec);
  while i = 0 do
    begin
      ListBox1.Items.Add(Rec.Name);
      i := FindNext(Rec);
    end;
  FindClose(Rec);
end;