Delphi 获取上级目录

  • 函数类型: 自定义函数

  • 函数说明:

获取上级目录


  • 代码如下:



 function GetParentDir(const ADir: string): string;
var
  APath: string;
begin
  if Copy(ADir, Length(ADir), 1) = '\' then
    APath := Copy(ADir, 1, Length(ADir) - 1)
  else
    APath := ADir;
  Result := ExtractFilePath(APath + 'z.z');
end;



  • 用法示例:

无 



《学习大师原创文档,请勿转载,侵权必究》





联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678