Ordnerausleseproblem

[himitsu]

SelectDirectory liefert doch den Pfad ohne TrailingBackslash?

also dann wohl so
FindFirst(Dir + '\*.*', faAnyFile, SearchRec); oder so
FindFirst(InludeohneTrailingBackslasch(Dir) + '*.*', faAnyFile, SearchRec);


obwohl der ordner hier meist nicht leer ist ('.' und '..' sind ja meist noch da) ... kann 'ne abfrage, ob überhaupt was gefunden wurde nicht schaden

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  SearchRec: TSearchRec; 
begin 
  SelectDirectory('Wählen Sie einen Ordner aus:','', Dir); 
  Listbox1.Items.Clear; 
  if FindFirst(ExtractFilePath(Dir) + '*.*', faAnyFile, SearchRec) then begin
    repeat 
      ListBox1.items.add(searchrec.Name); 
    until FindNext(searchrec) <> 0; 
    findclose(searchrec);
  end;
end;