EmptyDirectory: Boolean

← →
ИМХО © (2004-06-03 13:42) [0]

Как проверить, каталог пуст или нет?

← →
Vlad Oshin © (2004-06-03 13:44) [1]

if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then //edit1.text="g:\*.*"

← →
jack128 © (2004-06-03 13:47) [2]

function EmptyDirectory(DirName: string): Boolean;
var
h: DWORD;
begin
h := Windows.FindFirst(DirName + "\*.*", ...);
Result := h = INVALID_HANDLE_VALUE;
if not Result then Windows.FindClose(h);
end;

← →
nikkie © (2004-06-03 13:54) [3]

небольшой оффтоп
существуют стандарты именования функций. обычно функция имеет в своем названии глагол. этот глагол и описывает то, что функция делает. в данном случае - глагол empty. ожидаемо, что функция с названием EmptyDirectory удалит все содержит директории. если функция проверяет что-то и возвращает значение Boolean, то принято давать ей название с использованием глаголов be, do, have. в данном случае можно назвать IsDirectoryEmpty.

>удалит все содержит
удалит все содержимое

Да, согласен. Поспешил с созданием ветки.

EmptyDirectory: Boolean Найти похожие ветки