Inhalt der Listenbox in einer Schleife fassen???

[scp]

Da ich auf die schnelle kein zusammenhängendes Beispiel finden konnte, hab ich mal eins gebastelt:

Delphi-Quellcode:

var
  SRec: TSearchRec;
  StlDirs: TStrings;
  StlFiles: TStrings;
begin
  StlDirs := TStringList.Create;
  StlFiles := TStringList.Create;
  try
   If FindFirst(ExtractFilePath(ParamStr(0)) +  'MP3\' + '*.*', faAnyFile, SRec) = 0 then
   begin
     repeat
       If ((SRec.Attr and faDirectory) <> 0) and          // Bedingung, um nur
          (SRec.Name <> '..') and (SRec.Name <> '.') then // Ordner zu finden
         StlDirs.Add(SRec.Name)
       else
       If not ((SRec.Attr and faDirectory) <> 0) then // Bedingung, um nur Dateien zu finden
         StlFiles.Add(SRec.Name);
     until FindNext(SRec) <> 0;

     FindClose(SRec);
   end;
   ListBox1.Items.AddStrings(StlDirs);
   ListBox2.Items.AddStrings(StlFiles);
  finally
    StlDirs.Free;
    StlFiles.Free;
  end;
end;