Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.08.2009, 11:05   #1
doniyor
Форумчанин
 
Аватар для doniyor
 
Регистрация: 22.04.2008
Сообщений: 143
По умолчанию Перечислене всех папок

Здравствуйте!
Написал по клику следующуу процедуру
Код:
var
  searchResult : TSearchRec;

begin
  if FindFirst('С:\*.', faDirectory, searchResult) = 0 then
  begin
    repeat
      Memo1.lines.add(Имя файла = '+searchResult.Name);
      until FindNext(searchResult) <> 0;
      FindClose(searchResult);
  end;
Вопрос - почему первой и второй строкой пишутся точка, потом две точки, хотя подпапки с такми именами нет.
Мой сайт - www.fortis-soft.narod.ru
doniyor вне форума Ответить с цитированием
Старый 06.08.2009, 11:16   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Потому что . это выход в корень, а .. выход на предидущий уровень. Они всегда были и будут. просто поставь условие, которое будет отсеивать точки.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как в указанной директории узнать названия всех папок evgenrpo Общие вопросы C/C++ 5 08.06.2009 14:20
Получить список всех файлов и папок FTP Nester Работа с сетью в Delphi 4 28.04.2009 12:57
Создание папок. Alex Cones Общие вопросы Delphi 5 18.04.2009 15:32
Отображение скрытых файлов и папок и отображение розширения всех файлов beegl Общие вопросы Delphi 10 14.12.2008 22:02
список всех открытых файлов и папок. Teleport Общие вопросы Delphi 4 22.06.2008 11:29