偶然从 SysUtils 里发现了几个路径相关的函数, 以前没见过, 可能是 2010 新增的:
GetLocaleDirectory(); GetLocaleFile(); LocaleDirectoryExists(); LocaleFileExists();
应用测试:
uses IOUtils; procedure TForm1.FormCreate(Sender: TObject); var p,f: string; b: Boolean; begin {设置与获取当前路径} SetCurrentDir('C:\Temp\'); ShowMessage(GetCurrentDir); { C:\Temp } {获取当前目录下子目录的全路径} p := GetLocaleDirectory('ABC'); ShowMessage(p); { C:\Temp\ABC\ } {获取当前目录下文件的全路径} f := GetLocaleFile('X.txt'); ShowMessage(f); { C:\Temp\X.txt } f := GetLocaleFile('ABC\X.txt'); ShowMessage(f); { C:\Temp\ABC\X.txt } {IOUtils 下的 TPath 也有类似功能} f := TPath.GetFullPath('X.txt'); ShowMessage(f); { C:\Temp\X.txt } f := TPath.GetFullPath('ABC\X.txt'); ShowMessage(f); { C:\Temp\ABC\X.txt } {判断当前文件夹下的文件或子文件夹是否存在} b := LocaleDirectoryExists('ABC'); //这相当于: DirectoryExists(GetCurrentDir + '\ABC'); b := LocaleFileExists('X.txt'); //这相当于: FileExists(GetCurrentDir + '\X.txt'); end;
本文来自博客园,作者:del88,转载请注明原文链接:https://www.cnblogs.com/del88/archive/2011/12/27/2303949.html