Findfirst,Findnext schulung

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Rec: TSearchRec;
begin
  if FindFirst('C:\Windows\*.ini',faAnyFile,Rec) = 0 then//da eins gefunden = 0
  begin
    repeat
      ListBox1.Items.Add(Format('%s -> %d KB',[Rec.Name,Rec.Size div 1024]));
    until FindNext(Rec) <> 0; //wenn nichts gefunden dann 1 also schließen
    FindClose(Rec);
  end;
end;