Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.20;
Скачать: CL | DM;

Вниз

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.


 
nikkie ©   (2004-06-03 13:55) [4]

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


 
ИМХО ©   (2004-06-03 14:03) [5]

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



Страницы: 1 вся ветка

Текущий архив: 2004.06.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
3-1085475412
serg128
2004-05-25 12:56
2004.06.20
Есть ли какие-то агрегирующие функции в TClientDataSet?


1-1086346210
killer
2004-06-04 14:50
2004.06.20
Кнопочка в StringGrid


14-1086167010
arbin
2004-06-02 13:03
2004.06.20
Как вам это


14-1085989618
app
2004-05-31 11:46
2004.06.20
Просьба переригистрировать анкеты


1-1086250679
BlackTiger
2004-06-03 12:17
2004.06.20
Как же все-таки вывести на Canvas многострочный текст ПОД УГЛОМ?