Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 01.05.2009, 13:26   #1
zotox
Форумчанин
 
Регистрация: 09.09.2008
Сообщений: 395
По умолчанию Как вывести название папок из указанной папки?

[Делфи]

Собственно не могу этого реализовать, помогайте)

Код:
procedure TForm1.FormCreate(Sender: TObject);
var
 find:integer;
 sf:TSearchRec;
begin
 find:=FindFirst('d:\*.*',faDirectory,sf);
 while find=0 do
  begin
   find:=FindNext(sf);
   ListBox1.Items.Add(sf.name);
  end;
end;
zotox вне форума Ответить с цитированием
Старый 01.05.2009, 13:37   #2
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 15,234
По умолчанию

Код:
var
 sf:TSearchRec;
 FileName: string;
begin
 if FindFirst('d:\*.*',faDirectory,sf) = 0 then;
 repeat
   FileName := 'd:\' + sf.Name;
   if DirectoryExists (FileName) and (FileName <> '.') and (FileName <> '..')
     then ListBox1.Items.Add(sf.Name);
 until FindNext(sf) <> 0;
 FindClose (sf);
Arigato вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как изменить название темы? veter_s_morya О форуме и сайтах клуба 1 24.06.2008 08:17
Как в Memo1 вывести список папок? apromix Общие вопросы Delphi 1 08.05.2008 14:12
Показать элемент по указанной позиции. Fuckin_Princess Помощь студентам 8 07.12.2007 12:07
как определить название жёсткого диска??? PAVEL315 Общие вопросы Delphi 7 20.11.2006 20:27
как в каталоге отличить файлы от папок. Alar Общие вопросы Delphi 0 29.10.2006 10:39


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS