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

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