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


本文整理自网络,侵删。

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

相关阅读 >>

Delphi idhashmessagedigest 获取文件md5

Delphi 处理以逗号分隔的长字符串

Delphi里实现文件格式关联应用程序的功能

Delphi 比较两个日期是否大于n天

Delphi共享软件防破解的实用方法

Delphi版插apc杀进程驱动源码

Delphi rest application 与 webbroker application 区别

Delphi stringgrid如何清空

Delphi edit只允许输入数字

Delphi取代sleep的延时代码

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...