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