TDirectory.IsEmpty判断指定目录是否为空

最新推荐文章于 2023-08-29 11:04:50 发布

转载最新推荐文章于 2023-08-29 11:04:50 发布 · 217 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/cause/p/3501873.html

本文介绍了一种使用 Delphi 的 System.IOUtils.TDirectory.IsEmpty 函数来判断指定路径下的文件夹是否为空的方法，并提供了完整的示例代码及异常处理。

使用函数：

　　System.IOUtils.TDirectory.IsEmpty

class function IsEmpty(const Path: string): Boolean; static;

说明：参数为给定目录，返回布尔值

异常处理：指定目录为空或无效

代码：

var
    sDir: string;
procedure TForm1.Button1Click(Sender: TObject);
begin
    if not SelectDirectory('', 'H:\', sDir) then
        Exit;
end;

procedure TForm1.Button_CheckClick(Sender: TObject);
begin
    try
        if TDirectory.IsEmpty(sDir) then
        begin
            ShowMessage('此目录为空。');
            Exit;
        end;
        ShowMessage('此目录不为空。');
    except
        on e: Exception do
        begin
            MessageDlg(e.ClassName + ' : ' + e.Message, mtError, [mbok], 0);
            Exit;
        end;
    end;
end;