Thao tác với đường dẫn thư mục trong Delphi?

Question

Tôi có tên đường dẫn đầy đủ của một thư mục nhất định, ví dụ:

c:\foo\bar 

Bây giờ tôi muốn tham khảo một tập tin bên trong c: \ foo tên baz.txt,

c:\foo\bar\..\baz.txt 

Tôi hiện đang sử dụng .. điều hành con đường để đi xuống một bậc và nhận được tập tin mà tôi cần.

Có chức năng nào có thể thực hiện thao tác trên đường dẫn hay không, ví dụ: UpOneLevel (str) -> str? Tôi biết tôi có thể viết một bằng cách tách chuỗi và xóa mã thông báo cuối cùng, nhưng tôi thích nó là một hàm tích hợp/thư viện để tôi không gặp rắc rối sau này nếu có, ví dụ: thoát dấu gạch chéo ngược.

Answer 1

Sử dụng ExpandFileName chức năng:

var 
    S: string; 
begin 
    S := 'c:\foo\bar\..'; 
    S := ExpandFileName(S); 
    ShowMessage(S); 
end; 

Thông điệp từ ví dụ trên sẽ hiển thị đường dẫn c:\foo.

Answer 2

Câu trả lời này có giá trị trong Delphi XE +

Sử dụng lớp TDirectory của đơn vị IOutils, trong đó có phương pháp GetParent, như thế này ::

uses IOUtils; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    s: string; 
begin 
    s := 'c:\foo\bar'; 
    ShowMessage(TDirectory.GetParent(s)); 
end; 

Trong phiên bản cũ

Nhìn vào các câu trả lời khác.

Answer 3

Nhìn vào ExtractFilePath() và ExtractFileDir(). Chúng có sẵn chỉ trong tất cả các phiên bản Delphi, đặc biệt là những phiên bản không có TDirectory, IOUtils, v.v.

Và trước khi bất cứ ai nói, các công việc này vẫn ổn cho dù đường dẫn có kết thúc bằng tên tệp hay không. ForceDirectories() sử dụng chúng trong nội bộ để đi bộ ngược thông qua một hệ thống phân cấp của thư mục mẹ, ví dụ.

Answer 4

Bạn có thể xem TPathBuilder bản ghi trong SvClasses đơn vị từ thư viện delphi-oop. Đơn vị này không hỗ trợ Delphi 2007 nhưng việc triển khai TPathBuilder tương thích với phiên bản Delphi này. Ví dụ về cách sử dụng:

var 
    LFullPath: string; 
begin 
    LFullPath := TPathBuilder.InitCustomPath('c:\foo\bar').GoUpFolder.AddFile('baz.txt').ToString; 
    //LFullPath = c:\foo\baz.txt