几个和当前路径相关的新函数

最新推荐文章于 2021-03-20 00:15:15 发布

转载最新推荐文章于 2021-03-20 00:15:15 发布 · 373 阅读

收录于

2009-2010 新功能专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一种使用GetLocaleDirectory和GetLocaleFile等函数来获取文件和目录全路径的方法，并通过实例展示了如何利用这些函数来设置与获取当前路径、获取当前目录下子目录的全路径以及判断文件或子文件夹是否存在的过程。

转自：http://www.cnblogs.com/del

偶然从 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;