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_关于null,nil

Delphi access存储过程是带参数的查询语句

Delphi中提取网页源代码

Delphi任务对话框ttaskdialog类介绍

Delphi fmx输出彩色文本

Delphi xe5 为android增加启动图片显示

Delphi写的验证身份证号有效性函数

Delphi-获取毫秒-计算代码运行的时间

Delphi 编写activex控件(ocx控件)的知识和样例

Delphi ifileoperation替换shfileoperation

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



打赏

取消

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

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

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

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

评论

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