Проверка пустой католог или нет!

[Pashekka]

function TF_Main.IsEmtyDir(Path: TFileName): Boolean;
var
  SR:TSearchRec;
begin
  result:=true;
  if FindFirst(Path+'\*.*',faAnyFile,SR) = 0 then
    repeat
      if ((SR.Name<>'..') and (SR.Name<>'.')) then
        begin
          result := false;
          break;
        end;
    until FindNext(SR) <> 0;
  FindClose(SR);
end;

Подскажите где ошибка!

[Alar]

if FindFirst(Path+'\*.*',faAnyFile,SR) = 0 then пустой

Разве этого не достаточно?

точка и две точки - это не файлы это каталоги.

FindFirst('*.*', faAnyFile, SearchRec) = 0 then

Я так юзаю. Т.е. в папку перехожу с помощью ChDir

FindFirst - это по теме, также смотри похожие команды.

[Pashekka]

Сообщение от Alar

Разве этого не достаточно?

точка и две точки - это не файлы это каталоги.



Я так юзаю. Т.е. в папку перехожу с помощью ChDir

А если мне нужны только папки? То получается правильно?

[mutabor]

если нужны только папки то
if SR.Attr = faDirectory then...

[Alar]

Сообщение от Pashekka

А если мне нужны только папки? То получается правильно?

Для тех, кто поленился идти по ссылке скопирую код + там есть описание и пояснения.

Пример кода : Ищем все подходящие под Unit1.d* файлы в текущем каталоге 
var
  searchResult : TSearchRec;

begin
  // Пытаемся найти правильные файлы, соответствующие Unit1.d* в текущем каталоге
  if FindFirst('Unit1.d*', faAnyFile, searchResult) = 0 then
  begin
    repeat
      ShowMessage(Имя файла = '+searchResult.Name);
      ShowMessage('Размер файла = '+IntToStr(searchResult.Size));
    until FindNext(searchResult) <> 0;

    // Должен освободить ресурсы, используемые этими успешными, поисками
    FindClose(searchResult);
  end;
end;

Результат выполнения:
Имя файла = Unit1.dcu
Размер файла = 4382
Имя файла = Uni1.dfm
Размер файла = 524
Имя файла = Uni1.ddp
Размер файла = 51

Пример кода : Ищем все каталоги выше, включая текущий 
var
  searchResult : TSearchRec;

begin
  // Пробуем найти каталоги выше текущего каталога
  SetCurrentDir('..');

  if FindFirst('*', faDirectory, searchResult) = 0 then
  begin
    repeat
      // Показываем только каталоги
      if (searchResult.attr and faDirectory) = faDirectory
      then ShowMessage('Directory = '+searchResult.Name);
    until FindNext(searchResult) <> 0;

    // Должен освободить ресурсы, используемые этими успешными, поисками
    FindClose(searchResult);
  end;
end;


Результат выполнения:
Directory = .
Directory = ..
Directory = Bin
Directory = Help
Directory = Projects
Directory = Demos
Directory = Lib
Directory = Objrepos
Directory = MergeModules
Directory = Imports
Directory = Source
Directory = Rave5
Directory = Ocx

[Pashekka]

Для тех, кто поленился идти по ссылке скопирую код + там есть описание и пояснения.

Не у меня такое скаченое есть! Я смотрел это все просто на одном из форумов меня уверяют что можно сократить код! А я чего-то не пойму как, а призноваться не в какую.

[Alar]

Pashekka, так я в первом посте написал в 1 строчку, разве не работает?

[Pashekka]

Сообщение от Alar

Pashekka, так я в первом посте написал в 1 строчку, разве не работает?

Работает, но ведь это только для файлов!?
Для папок не катит т.к. там есть "." и "..", без цикла не обойтись! Блин если не так переубедите меня!

[mutabor]

Просмотрел внимательно функцию из первого поста. Там все правильно, если она найдет в директории хоть что-то отличное от '.' и '..' она вернет false т.е. директория не пуста. Может ты путь неправильный в нее передаешь?
Есть там небольшая ошибка - FindClose нужно вызывать в случае успешного поиска, а там она в любом случае вызывается. Но на результат функции это не влияет.

[Pashekka]

Спасибо большое ! mutabor. Ни как не могу предопределить такие вот мелкие ошибки, блин.