MkDir过程 - Borland Delphi 开发工作者手册

返回介绍

MkDir过程

发布于 2019-08-04 字数 505 浏览 795 评论 0

System

procedure MkDir(S: string);

MkDir创造—个新的子路径。在S中的最后一项不能是—个已存在的文件名。{$I+}开关可以通过异常处理运行时间错误。当使用旧{$I-}开关时,可使用IOResult检查—个I/O错误。

uses Dialogs

begin

{$I-}

{Get directory name from TEdit control}

MkDir(Edit1.Text);

if IOResult<>0then

MessageDlg(‘Cannotcreate directory’,mtWarning,[mbOk],0)

else

MessageDlg(‘Newdirectory create’,mtInformation,[mbOk],0);

end;

上一篇:MinValue函数

下一篇:MomentSkewKurtosis过程

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!