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], );
Exit;
end;
end;
end;

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

上一篇:MySQL数据库事务的四大特性以及事务的隔离级别


下一篇:method.invoke()s