Brauche Hilfe bei Rekursion

[Lyan]

Hallo,

ich möchte aus einem Ordner alle Bilder laden, inklusiv der Unterordner.

Zum auswählen des Ordners folgender Code:

Delphi-Quellcode:

    procedure TMainForm.btnChangePathClick(Sender: TObject);
    var
      Path: String;
    begin
      Path := PicturesPath;
      if SelectDirectory('Ordner mit Bildern für die Slideshow wählen:', '', Path) then
        CreateImageList(Path);
    end;

So nun werden die Bilder in eine Imageliste geladen:

Delphi-Quellcode:

    procedure TMainForm.CreateImageList(const Path: String);
    const
      SNoImage = 'The specified folder does not contain any supported image file.';
    var
      FileList: TFileListBox;
    begin
      if Path <> PicturesPath then
      begin
        FileList := TFileListBox.Create(nil);
        try
          FileList.Visible := False;
          FileList.Parent := Self;
          FileList.Mask := GraphicFileMask(TGraphic);
          FileList.Directory := Path;
          if FileList.Items.Count > 0 then
          begin
            Pictures.Assign(FileList.Items);
            PicturesPath := Path;
            if (Length(Path) > 0) and (PicturesPath[Length(Path)] = '\') then
              Delete(PicturesPath, Length(Path), 1);
            StatusBar.Panels[2].Text := IntToStr(Pictures.Count) + ' Image(s)';
            StatusBar.Panels[3].Text := 'Folder: ' + Path;
            LoadNextImage;
          end
          else
            MessageDlg(Path + #13#10 + SNoImage, mtWarning, [mbCancel], 0);
        finally
          FileList.Free;
        end;
      end;
    end;

Problem:

ich weiß nicht wie ich rekusriv programmiere. Also hier wird ein Ordner ausgewählt und nur aus diesem Ordner die Bilder geladen.

Ich möchte aber, dass auch aus allen Unterordnern und den unterordnern der unterordner die Bilder geladen werden.


Please help me

MfG

Lyan