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

RFpro.ru: СУБД и Delphi/Lazarus

  Все выпуски  

RusFAQ.ru: СУБД и Delphi


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / СУБД и Delphi

Выпуск № 156
от 18.06.2006, 12:35

Администратор:CJ
В рассылке:Подписчиков: 229, Экспертов: 35
В номере:Вопросов: 1, Ответов: 1


Вопрос № 46095: Здравствуйте, Уважаемые Эксперты! Подскажите, как сделать так , чтобы Delphi случайным образом выбирала папку(и файл) на компьютере....

Вопрос № 46.095
Здравствуйте, Уважаемые Эксперты!
Подскажите, как сделать так , чтобы Delphi случайным образом выбирала папку(и файл) на компьютере.
Отправлен: 13.06.2006, 12:29
Вопрос задал: Исаков Евгений Владимирович (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Маренич Владимир
Здравствуйте, Исаков Евгений Владимирович!
Два варианта:
1. Если нужно сделать такую выборку один раз.
Сканировать все папки (файлы) случайное количество раз. Т.е. останавливаем сканирование случайным образом.
2. Если нужно сделать такую выборку многократно.
Сканируем ВСЕ папки (файлы) в List: TStringList. Потом выбираем случайную папку (файл) по индексу: RandomFolder:=List[Random(List.Count)]
Я надеюсь сканировать папки (файлы) Вы умеете. Если нет смотрите в хелпе описание функций FindFirst и FindNext.
Ответ отправил: Маренич Владимир (статус: Студент)
Ответ отправлен: 14.06.2006, 12:23
Оценка за ответ: 5


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.34 от 01.06.2006
Яндекс Rambler's Top100

В избранное