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

返回介绍

Rmdir过程

发布于 2019-08-04 字数 519 浏览 928 评论 0

System

procedure RmDir(S:sting);

RmDir删除一个空的子目录。删除由S说明的子目录。如果目录不存在,非空,或当前已存入的目录,一个I/O错误将出现。{SI+}开关使用异常可以处理运行时间错误。{$I-}开关使用IOResult来检查I/O错误。

uses Dialogs;

begin

{$I-};

{从TEdit控制中得到目录名}

 RmDir(Edit1.Text);

if IOResutl<>0then

MessageDlg(‘Cannotremove directory’,mtWarning,[mbOK},0)

else

MessageDlg(‘Directoryremoved’,mtinformation,[mbOK],0);

end;

上一篇:Rewrite过程

下一篇:Round函数

发布评论

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

支持 Markdown 语法,需要帮助?

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