频道分类

delphi 创建多级目录

作者:admin 来源: 日期:2020/4/7 15:12:55 人气: 标签:

 
function MyCreateDir(const Path: String): Boolean;
begin
  // 建目录
  if DirectoryExists(Path) then
    Result := True
  else
    Result := ForceDirectories(Path);
end;

上一篇:delphi 字符串显示后5位下一篇:没有资料