Вывод содержимого папки

[Serge_Bliznykov]

Shouldercannon такой код получше.
два замечания. Почему проверяете существование каталога заданного переменной RCText1 а выводите содержимое каталога Edit1.Text ?! Это в лучшем случае некрасиво, в худшем - ошибка или трудновылавливаемый глючок!
Надо, чтобы и там и там была ОДНА переменная (или RCText1 или Edit1.Text)!
ну и я бы всё же вынес закрытие FindClose за проверку.
Примерно вот так:

                  if DirectoryExists(Edit1.Text) then
                    begin
                      if FindFirst(IncludeTrailingBackslash(Edit1.Text) + '*.*', faAnyFile, searchResult) = 0 then
                        begin
                          repeat
                            Browse.Add(searchResult.Name);
                          until FindNext(searchResult) <> 0;
                        end;

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

p.s. и отказываться от функции IncludeTrailingBackslash я бы не рекомендовал!

p.p.s. Кстати, а вас не смущает, что в список содержимого папки добавляются папки с именами '.' и '..' ?!
Нет, нет, это не ошибка, просто иногда от них искусственно избавляются, чтобы пользователь не видел этих спец.каталогов...

[Shouldercannon]

'.' и '..' пока не смущают. У меня в программе всё переведено на переменную типа string RCText1, сюда когда вставлял забыл подправить

[k907]

Позвольте уйти немного в сторону.
Используя UNC-пути можно создать, переименовывать и перемещать папки с названием ".." (независимо от ФС). Такие папки не видны в системе поскольку трактуются как переход в родительскую директорию, но их можно создать или удалить даже в командной строке:

>MD \\?\C:\..
>RD \\?\D:\dir1\.. //нельзя если папка не пустая

Такую папку можно увидеть с помощью команды DIR. В списке будут одна или две такие папки: первая - переход в родительскую директорию, а вторая и есть искомая. Но просмотреть содержимое нельзя.

Как вариант можно временно переименовать папку, а затем просканировать. Но можно ли обойтись без этого?

[Пепел Феникса]

This function is included for backward-compatibility only. New programs should use IncludeTrailingPathDelimiter.

насчет IncludeTrailingBackshash.

k907, не надо использовать системные имена папок.

[Shouldercannon]

Удалено пользователем