Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Подписаться Бесплатный дискуссионный лист Подписчиков 308
←   Сентябрь 2004   →
 1
 2
 3
 4
04.09.2004
14:31:58
17:03:08
 5
 6
 7
 8
 9
10
11
12
12.09.2004
09:24:33
19:52:21
13
14
15
16
17
18
19
20
21
22
22.09.2004
07:56:57
21:50:55
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт листа: http://codeguru.ru
Открыт: 21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес модератора: comp.soft.prog.prog-owner@subscribe.ru

Модератор
3V

Статистика

308 подписчиков
0 за неделю

За 2004-09-18

Re[5]: Поиск директорий. Почему так?

Здравствуйте, Денис.

Здравствуйте, Денис.

В предыдущем письме я небольшую неточность допустил. Правильно так:

FindFirst ('c:\*.*', faDirectory, SR);
if DirectoryExists('c:\'+R.Name) then // делаем что-то, если
это - директория
Насколько быстро оно работает - вопрос.

   Шешунов Вадим 2004-09-18 20:16:49 (#230572)

Re[5]: Поиск директорий. Почему так?

Доброго времени суток, Денис.

Д>>> Теперь находит все, включая файлы... А надо только директории!
ШВ>> Может, коряво будет, но думаю сработает:
ШВ>> {$I-}
ШВ>> FindFirst ('c:\*', faDirectory, SR);
ШВ>> ChDir('c:\'+SR.Name);
ШВ>> if IOResult = 0 then
ШВ>> {$I+}

Д> Спасибо! С некоторыми изменениями работает! Но только по-моему,
Д> функция ChDir работает очень медленно. Может есть еще варианты?
Тогда смотри в сторону API.
Или же востользуйся функцией IsDirectory(), или чем-то в этом роде, я
помню, точно есть.

   "B." 2004-09-18 20:16:38 (#230571)

Re[5]: Поиск директорий. Почему так?

Здравствуйте, Денис.

Вы писали 18 сентября 2004 г., 12:22:30:

Д>>> Теперь находит все, включая файлы... А надо только директории!
ШВ>> Может, коряво будет, но думаю сработает:
ШВ>> {$I-}
ШВ>> FindFirst ('c:\*', faDirectory, SR);
ШВ>> ChDir('c:\'+SR.Name);
ШВ>> if IOResult = 0 then
ШВ>> {$I+}

Д> Спасибо! С некоторыми изменениями работает! Но только по-моему,
Д> функция ChDir работает очень медленно. Может есть еще варианты?

Варинтов - куча.-))))) например так:
FindFirst ('c:\*.*', faDirectory, SR);
if DirectoryExists('c:\windows\'+R.Name) then // делаем что-то, если
это - директория
Насколько быстро оно работает - вопрос.

   Шешунов Вадим 2004-09-18 20:16:16 (#230569)

Re[4]: Поиск директорий. Почему так?

Доброго времени суток, Шешунов.
Вы писали 17 сентября 2004 г., 13:19:57
на тему "Поиск директорий. Почему так?"

Д>> Теперь находит все, включая файлы... А надо только директории!
ШВ> Может, коряво будет, но думаю сработает:
ШВ> {$I-}
ШВ> FindFirst ('c:\*', faDirectory, SR);
ШВ> ChDir('c:\'+SR.Name);
ШВ> if IOResult = 0 then
ШВ> {$I+}

Спасибо! С некоторыми изменениями работает! Но только по-моему,
функция ChDir работает очень медленно. Может есть еще варианты?

   Денис 2004-09-18 13:29:48 (#230435)

Re[4]: Поиск директорий. Почему так?

Доброго времени суток, B..
Вы писали 16 сентября 2004 г., 13:18:25
на тему "Поиск директорий. Почему так?"

Д>> Теперь находит все, включая файлы...

B> Тогда может, так:
B> if FindFirst(c:\*.*, faAnyFile, S) then
B> repeat
B> if not ((S.Attr and faDiractory) = faDirectory) and
B> (S.Name <> '.') and (S.Name <> '..')) then continue;

B> dosome1;
B> dosome2;

B> until (not FindNext(S))
B> FindClose(S);

Все равно находит все!

   Денис 2004-09-18 13:29:05 (#230434)