Delphi - как получить список всех файлов в каталоге

Question

Я работаю с delphi, я хочу список всех файлов каталога при выполнении openpicturedialog.

т.е. когда диалог открытия выполняется и я выбрать один файл из этого, я хочу список всех файлов из каталога выбранного файла.

Вы можете даже предложить мне для получения имени каталога от FileName имущества TOpenDialog
Спасибо.

Answer 1

@ Химадри, основная цель OpenPictureDialog - не выбирать каталог, так или иначе, если вы используете этот диалог с другой целью, вы можете попробовать этот код.

Var 
    Path : String; 
    SR  : TSearchRec; 
    DirList : TStrings; 
begin 
    if OpenPictureDialog1.Execute then 
    begin 
    Path:=ExtractFileDir(OpenPictureDialog1.FileName); //Get the path of the selected file 
    DirList:=TStringList.Create; 
    try 
      if FindFirst(Path + '*.*', faArchive, SR) = 0 then 
      begin 
      repeat 
       DirList.Add(SR.Name); //Fill the list 
      until FindNext(SR) <> 0; 
      FindClose(SR); 
      end; 

    //do your stuff 

    finally 
    DirList.Free; 
    end; 
    end; 

end; 

Answer 2

Изменение фильтра свойство в вашем OpenPictureDialog, чтобы включить все файлы:

All (*.*) 

Edit: Я не думаю, что вы можете выбрать каталог в Open (фото) Диалог, это, безусловно, ISN В любом случае цель OpenPictureDialog. Возможно, this - это то, что вы ищете.

Затем используйте FindFirst и FindNext, чтобы получить файлы в этом каталоге.

Answer 3

Вы можете использовать функцию extractFilePath, чтобы получить имя каталога:

myPath := extractFilePath(FileName); 

где имя_файла это имя файла вы выбираете OpenDialog.

Answer 4

если вы используете Delphi 2010, то вы можете использовать tdirectory.getfiles сначала добавить ioutils.pas пункту изез затем записать следующую строку кода в обработчик событий (в дополнение к коду у вас уже есть в том случае, обработчик)

uses IOUtils; 

var 
    path : string; 
begin 
    for Path in TDirectory.GetFiles(OpenPictureDialog1.filename) do 
     Listbox1.Items.Add(Path);{assuming OpenPictureDialog1 is the name you gave to your OpenPictureDialog control} 
end;