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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.02.2009, 23:28   #11
Anfall
Форумчанин
 
Регистрация: 10.02.2009
Сообщений: 181
По умолчанию

Всем большое спасибО!
Anfall вне форума Ответить с цитированием
Старый 25.02.2009, 23:28   #12
roach1967
Пользователь
 
Регистрация: 21.02.2009
Сообщений: 28
По умолчанию Чтение атрибутов

В данном случае необходимо воспользоваться функцией получения атрибутов файла:
function FileGetAttr(const FileName: string): Integer;
и возвращаемое значение проверить на наличие флага faDirectory ($00000010).
Если флаг установлен, то это директория и соответственно данное имя занести в ListBox2, иначе воспользоваться функцией получения расширения:
function ExtractFileExt(const FileName: string): string;
и если возвращаемое значение равно 'mp3', то записываем имя файла в ListBox3.

Все функции для работы с файлами находятся в модуле Sysutils.
Там-же определены флаги атрибутов.
В споре рождается истина.
roach1967 вне форума Ответить с цитированием
Старый 25.02.2009, 23:40   #13
Anfall
Форумчанин
 
Регистрация: 10.02.2009
Сообщений: 181
По умолчанию

спс!!!!!!!!!!
Anfall вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как узнать, выдвинут, или задвинут, определённый дисковод? Altera Win Api 5 10.03.2009 08:47
файл и папка StartMis Общие вопросы Delphi 1 19.11.2008 19:48
Как по пути опредилить файл это или папка Anatol_rus Мультимедиа в Delphi 2 07.11.2008 11:51
как узнать string или Real Влажимир Общие вопросы Delphi 2 11.04.2008 17:06
(Это снова я) Как записать в файл? Air Общие вопросы Delphi 5 03.05.2007 20:36