Получить список файлов в папке

[romanzi]

Есть папка с изображениями (разных форматов) и нужно все эти изображения вывести на форму.
Я создаю массив из динамических изображений, потом ищу нужные изображения в папке, записывая их путь в ListBox. И затем загружаю их на форму.
Вот только проблема: моя функция не показывает пути до изображений, расположенных в папках.

P.S. Как можно было бы разместить на форме 20-30 картинок так, чтобы они не закрывали друг друга и были в ряд (по 3-4 по горизонтали и хз сколько по диагонали могли бы быть при форме 400 х 700)
Всем спасибо за помощь.

procedure GetAllFiles( Path: string; Lb: TListBox );
var
sRec: TSearchRec;
isFound: boolean;
begin
isFound := FindFirst( Path + '\*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
Lb.Items.Add( Path + '\' + sRec.Name );
end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
getImages(lb);
FindClose( sRec );
end;

list := Tlistbox.Create(Form3);
    list.Parent := Form3;
    //list.visible := false;
    GetAllFiles('\Project\data\images', list);

procedure getImages(Lb: TListBox);
var
I: integer;
begin
    if lb.Count > 99 then  // guard
      begin
        lb.Count := 99;
      end;

    for I := 1 to lb.Count - 1 do
      begin
         images[i] := Timage.Create(Form3);
         images[i].Parent := Form3;
         images[i].Picture.LoadFromFile(lb.Items[i - 1]);
         if I = 1 then
              begin
         images[i].Top := 100;
         images[i].Left := 100;
              end;

         images[i].Left := images[i-1].Left + 100;
         images[i].Top := images[i-1].Top + 100;

      end;

end;

[саша40]

Для создания собственного аналога Exproler(Проводник) читайте книгу "Библия Delphi"(Флёнов)

[romanzi]

Мне не нужен проводник.
Мне нужно вывести картинки из одной единственной папки на форму, чтобы дальше работать с ними.

[Stilet]

моя функция не показывает пути до изображений, расположенных в папках.

Ну и зачем тебе путь, если у тебя он один на все картинки?

Как можно было бы разместить на форме 20-30 картинок

Рисовать их в DrawGrid. Допустим считывать в ImageList - получишь массив картинок, а потом в гриде отрисовывать в ячейках - получишь плитку картинок.

[romanzi]

Ну и как тогда можно получить картинки, если имена их могут быть разные?
Получить адесса всех изображений в одной папке и выводить их.

[саша40]

Сообщение от romanzi

Мне не нужен проводник.
Мне нужно вывести картинки из одной единственной папки на форму, чтобы дальше работать с ними.

Ну программно создавай их. Кто мешает?

[superedward]

Может, дело в том, что ты подпапки ищешь в своей папке.
Так подойдёт?

if ( sRec.Attr and faDirectory ) <> faDirectory then Lb.Items.Add( Path + '\' + sRec.Name);

[Stilet]

как тогда можно получить картинки, если имена их могут быть разные?

Понятное дело разные. Тот файл, что твоя процедура найдет запоминай в StringList - будет тебе список файлов. Или проще - компонент FileListBox. Настроишь на нужный каталог, и получишь список файлов.