Delphi中有执行绝对相对路径转换的标准函数吗?
例如:
- “基本”路径是
'C:\Projects\Project1\'
- 相对路径是
'..\Shared\somefile.pas'
- 绝对路径是
'C:\Projects\Shared\somefile.pas'
我正在寻找这样的东西:
function AbsToRel(const AbsPath, BasePath: string): string;
// '..\Shared\somefile.pas' =
// AbsToRel('C:\Projects\Shared\somefile.pas', 'C:\Projects\Project1\')
function RelToAbs(const RelPath, BasePath: string): string;
// 'C:\Projects\Shared\somefile.pas' =
// RelToAbs('..\Shared\somefile.pas', 'C:\Projects\Project1\')
要转换为绝对值,您有:
展开文件名
要获得相对路径:
提取相对路径
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)