Question

我有一条路径说C：\ Program Files \ Borland 什么会打赌解析该字符串最简单的方法，然后返回Borland？感谢

Answer 1

尝试使用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 2

您可以使用ExtractFileName获取最后一个反斜杠后的内容，该内容位于SysUtils单元中。

Answer 3

要直接解析该字符串并返回“Borland”，您可以这样做：

uses SysUtils;

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

Answer 4

这将对所有文件夹都起作用，无论它是否带有反斜杠：

ExtractFileName(ExcludeTrailingBackslash(Path))

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

4 个答案: