如何獲取某個目錄的父文件夾的路徑？

Question

當我有這樣的目錄路徑：

C:\Program Files (x86)\Embarcadero\ 

我在尋找函數應該返回：

C:\Program Files (x86)\ 

我試過這個代碼，但它僅適用於文件，而不是目錄：

function GetParentDirectory(const Path: string): string; 
begin 
    Result := ExpandFileName(Path); 
end; 

有誰知道我應該用什麼來返回路徑到某個目錄的父文件夾？

Answer 1

您可以使用兩種方法：

從一個文件夾名稱：

ExtractFilePath(ExcludeTrailingPathDelimiter('C:\Parent\Child\')); 

從文件名：

ExtractFilePath(ExcludeTrailingPathDelimiter(ExtractFilePath('C:\Parent\Child\app.exe'))); 

Answer 2

試試這個：

ExtractFileDir('C:\Path\Path2') gives 'C:\Path' 

注意

ExtractFileDir('C:\Path\Path2\') gives 'C:\Path\Path2' 

感謝TLama：

ExtractFileDir(ExcludeTrailingBackslash('C:\Path\Path2')) gives 'C:\Path' 
ExtractFileDir(ExcludeTrailingBackslash('C:\Path\Path2\')) gives 'C:\Path' 

Answer 3

在Delphi的新版本，你可以使用TDirectory從IOUtils

TDirectory.GetParent(ExcludeTrailingPathDelimiter(YourPath))