Alle BMPs eines Verzeichnisses in Listbox auflisten?

[Uncle Cracker]

Probier es mal so:

Delphi-Quellcode:

//Dateien herausfiltern
function ReadDir(Path, Mask: string; ShowPath: boolean): TStringlist;
var SRec: TSearchRec;
  SL: TStringList;
begin
  SL := TStringList.Create;
  FindFirst(Path + Mask, not faDirectory, SRec);
  if ShowPath then
    SL.Add(Path + SRec.Name)
  else
    SL.Add(SRec.Name);
  while FindNext(SRec) = 0 do
    if ShowPath then
      SL.Add(Path + SRec.Name)
    else
      SL.Add(SRec.Name);
  FindClose(SRec);
  Result := SL;
end;





//Dateien laden (JPG + JPeg + BMP + WMF + ICO + EMF)
procedure TForm1.Button1Click(Sender: TObject);
var
  path  : string;
  stl   : TStringList;
  i : integer;
begin
  path:='c:\bilder\';
  stl := TStringList.Create;
  try
    stl.AddStrings(ReadDir(path,'*.BMP',false));
//    stl.AddStrings(ReadDir(path,'*.jpg',false));
//    stl.AddStrings(ReadDir(path,'*.WMF',false));
//    stl.AddStrings(ReadDir(path,'*.EMF',false));
//    stl.AddStrings(ReadDir(path,'*.ICO',false));
//    stl.AddStrings(ReadDir(path,'*.JPeg',false));

//Leere Einträge entfernen
    i := 0;
  while i < stl.count do begin
    if trim(stl[i]) = '' then
      stl.Delete(i)
    else
      inc(i);
  end;
//Einträge aus StringList in Listbox einfügen
    listbox1.Items.CommaText:=stl.text;
  finally
    stl.Free;
  end;
end;

Nun werden alle BMPs in eine Listbox eingetragen.