随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253


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

posted on 2009-11-02 01:00  万一  阅读(...)  评论(...编辑  收藏