Inhalt eines Ordners auslesen

[dominikkv]

ok
und ich hab beim durchgehen gesehen das man da noch was vereinfachen kann

Delphi-Quellcode:

procedure GetFileList(Path: String; ZielListe: TStringList); 
var 
  SR: TSearchRec; 
begin 
  if Path[length(Path)] <> '\' then  // erstmal schauen wir ob der übergebene pfad
    Path := Path + '\';              // mit einem \ aufhört, zB C:\Test\
  if FindFirst(Path + '*.jpg', faAnyFile, SR) = 0 then // nach der ersten datei suchen die mit .jpg endet
                                                       // * wird dabei als platzhalter verwendet  
                                                       // in SR wird der fund gespeichert
    repeat
      ZielListe.Add(Path + sr.Name);     // pfad zum bild merken
    until FindNext(SR) <> 0;          // mit FindNext wird die suche wiederholt
  FindClose(SR);                // suche abschließen
  if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then    // das ganze noch mal von vorne mit ordnern
    repeat 
      if (SR.Attr = faDirectory) and                    //  schauen ob fund ein ordner ist
         (SR.Name <> '.') and (SR.Name <> '..') then    //     "
           GetFileList(Path + SR.Name + '\', ZielListe);  // rekursiver aufruf unserer procedure mit unterordner
    until FindNext(SR) <> 0;    // suche widerholen
  FindClose(SR);                // suche abschließen
end;

procedure TForm1.Button1Click; 
var 
  List: TStringList; 
  I: Integer; 
begin 
  List := TStringList.create;   // unsere StringList erzeugen
  try                           // speicherschutzblock
    GetFileList('<MeinPfad>', List);  // unsere prozedure, deinen pfad hier eintragen!
    for I := 0 to List.Count do       // alle elemente der liste durchgehen...
      LoadMyImage(List[I]);           // ... und laden (ist jetzt nur nen beispiel)
  finally 
    FreeAndNil(List);           // speicher freigeben
  end; 
end;

das laden vom bild musst du übernehmen^^
setz dir am anfang der prozedure nen breakpoint, dann siehst du mit jedem knopfdruck auf F8 wo er gerade hinspringt.
Bei weiteren Fragen fragen.