Findfirst,Findnext schulung

[SaFu]

alle zwei cods gehen

hab ich das mit meiner erklärung richtig verstanden

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(Rec.Name);
    until FindNext(Rec) <> 0; //wenn nichts gefunden dann 1 also schließen
    FindClose(Rec);
  end;
end;

was sagt jetzt dieses .name aus