几个和当前路径相关的新函数
几个和当前路径相关的新函数
涂孟超 发表于4年前
几个和当前路径相关的新函数
  • 发表于 4年前
  • 阅读 2
  • 收藏 0
  • 点赞 0
  • 评论 0

移动开发云端新模式探索实践 >>>   


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

 
 
 
 
 

 

 

  
  • 打赏
  • 点赞
  • 收藏
  • 分享
共有 人打赏支持
粉丝 12
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: