Delphi - cách lấy danh sách tất cả các tệp của thư mục

Question

Tôi đang làm việc với delphi, tôi muốn danh sách tất cả các tệp của thư mục khi tôi thực thi openpicturedialog.

ví dụ: Khi hộp thoại mở được thực hiện và tôi chọn một tập tin từ nó, tôi muốn danh sách của tất cả các file từ thư mục của tập tin được chọn.

Bạn thậm chí có thể gợi ý cho tôi để nhận tên thư mục từ FileName tài sản của TOpenDialog
cảm ơn.

Answer 1

@Himadri, mục tiêu chính của OpenPictureDialog không chọn thư mục, dù sao nếu bạn đang sử dụng hộp thoại này với một mục đích khác, bạn có thể thử mã này.

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

Thay đổi lọc tài sản trong OpenPictureDialog bạn để bao gồm tất cả các file:

All (*.*) 

Sửa: Tôi không nghĩ rằng bạn có thể chọn một thư mục trong một mở (Ảnh) Dialog, nó chắc chắn isn không phải là mục đích của OpenPictureDialog. Có lẽ this là những gì bạn tìm kiếm.

Sau đó, sử dụng FindFirst và FindNext để tải các tệp trong thư mục này.

Answer 3

Bạn có thể sử dụng extractFilePath chức năng để có được tên thư mục:

myPath := extractFilePath(FileName); 

nơi FileName là tên của tập tin bạn chọn bằng cách OpenDialog.

Answer 4

nếu bạn sử dụng delphi 2010 sau đó bạn có thể sử dụng tdirectory.getfiles đầu tiên thêm ioutils.pas quy định tại khoản sử dụng sau đó viết dòng mã sau đây trong xử lý sự kiện (ngoài mã bạn đã có trong trường hợp handler)

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;