Список папок в папке

[Kronos913]

Итак... Как получить список папок в папке? И вывести их в Мемо
Уже долго ищу, не могу найти нигде

Нужны только папки. Без файлов в них

[Viktor61]

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

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

Учесть и преобразовать, если в Мемо не запишется searchResult.Name тип
TSearchRec = record
Time : Integer;
Size : Integer;
Attr : Integer;
Name : TFileName;
ExcludeAttr : Integer;
FindHandle : THandle;
FindData : TWin32FindData;
end;

[Kronos913]

Сугубо методом тыка из шаблона для поиска файлов сделал вот такой код
Кто поопытнее, можете проверить, правильно все тут? Какие могут быть "подводные камни" у такой конструкции?

procedure TForm1.DirSearch1(Dir: string);
var
   SearchRec: TSearchRec;
   i:longint;
   a:boolean;
const
   Mask='.';
begin
   memo1.lines.clear;
   Dir := IncludeTrailingBackslash(Dir);
   if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then


     repeat
       Application.ProcessMessages;

       
       if (faDirectory=0) and (SearchRec.Attr=0) then begin
         if (SearchRec.name<>'.') and (SearchRec.name<>'..') then
                 DirSearch(Dir + SearchRec.name, Mask, Memo1.Lines)
       end
       else
         
          If not(SearchRec.Name='.') and not(SearchRec.Name='..') then begin
            a:=true;
            i:=0;
            while i<memo1.Lines.Count do begin
             If (Dir + SearchRec.Name)<memo1.Lines[i] then begin
               Memo1.Lines.Insert(i, (Dir + SearchRec.Name));
               a:=false;
               i:=memo1.Lines.Count;
             end;
             inc(i);
            end;
            if a then Memo1.Lines.Add(Dir + SearchRec.Name);

          end;


     until FindNext(SearchRec)<>0;
   FindClose(SearchRec);
end;

[Arigato]

Тут он список всех файлов выдаст, а не только папок. При этом пройдет рекурсивно по всем подпапкам. По задачи не ясно, надо ли углубляться дальше в дерево каталогов?

[NetSpace]

а не заменить ли для поиска папок параметр faAnyFile на другой? например, faDirectory?
---------------
faAnyFile: Любой файл
faReadOnly: Файлы nолько для чтения
faHidden: Скрытые файлы
faSysFile: Системные файлы
faVolumeID: файлы идентификатора объема
faDirectory: Файлы каталоги
faArchive: Архивные файлы

[Kronos913]

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

Тут он список всех файлов выдаст, а не только папок. При этом пройдет рекурсивно по всем подпапкам. По задачи не ясно, надо ли углубляться дальше в дерево каталогов?

Отредактировал сообщение. Не ту процедуру с программы вставил первый раз
Оно еще почему-то в каком-то рандомном порядке выводит список, что нужен дополнительный алгоритм сортировки по алфавиту

Касательно задачи - только список ближайших папок. Без вложенных в них

[Arigato]

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

Оно еще почему-то в каком-то рандомном порядке выводит список, что нужен дополнительный алгоритм сортировки по алфавиту

А никто сортировку и не обещал.