Delphi创建多级目录与目录存在性判断
Delphi 的文件路径操作还挺省心的。要创建那种带好几个子文件夹的深层目录,用TDirectory.CreateDirectory
就行,一步到位,还不怕漏建哪个。顺手还可以用TDirectory.Exists
判断目录在不在,免得重复创建浪费资源。
像'C:\Users\John\Documents\MyProject\SubFolder'
这种路径时,Delphi 会自动检查每一层目录,不存在就帮你建出来,挺智能的。代码也不复杂,效率还不错。
判断目录存不存在,也就是一行代码搞定:TDirectory.Exists
返回个布尔值,直接就能用。配合ShowMessage
,用户提示也方便。
不过要注意哦,万一碰到磁盘权限问题或者空间不足啥的,CreateDirectory
可是会抛异常的。所以建议你最好放在try...except
里,保险一点。
除了TDirectory
,Delphi 还有TFile、TShell这些类,搭配起来用,文件系统相关的活儿基本能全包了。要是你写的是带文件管理功能的工具,熟练掌握这些还挺重要的。
如果你刚好在路径结构或者文件初始化,建议直接上手试试TDirectory
,用起来顺手不说,还能少踩坑。
.rar
预估大小:14个文件
创建深层目录及判断目录是否存在
文件夹
Project1.exe
400KB
Project1.res
876B
Unit1.~dfm
2KB
Unit1.dfm
2KB
Project1.cfg
434B
Unit1.pas
1KB
Project1.dpr
188B
Project1.dof
2KB
Unit1.~pas
953B
175.36KB
文件大小:
评论区