Delphi 7从路径中获取文件夹名称

Question

我有一个路径说C：\ Program Files \ Borland 什么可以打赌最简单的方法来解析该字符串，并返回Borland？ 谢谢

Answer 1

在SysUtils单元中找到的最后一个反斜杠ExtractFileName后面可以得到任何结果。

Answer 2

尝试使用ExtractFileName函数，如果你的路径没有用反斜线结束，这个函数只适用于你的例子，所以你可以使用ExcludeTrailingPathDelimiter函数去除最后的反斜杠。

看到这个样本

program ProjectExtractPathDemo; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

var 
    Path : string ; 
begin 
    Path:='C:\Program Files\Borland'; 
    Writeln(ExtractFileName(Path));//return Borland 

    Path:='C:\Program Files\Borland\'; 
    Writeln(ExtractFileName(Path));//return '' 

    Path:='C:\Program Files\Borland\'; 
    Writeln(ExtractFileName(ExcludeTrailingPathDelimiter(Path)));//return Borland 


    Readln; 
end. 

检查此链接了解更多信息

Path Manipulation Routines

Answer 3

直接解析该字符串，然后返回 “Borland的”，你可以这样做：

uses SysUtils; 

Delete(Path, 1, LastDelimiter('\', Path));