Вопрос № 46095: Здравствуйте, Уважаемые Эксперты!
Подскажите, как сделать так , чтобы Delphi случайным образом выбирала папку(и файл) на компьютере....
Вопрос № 46.095
Здравствуйте, Уважаемые Эксперты!
Подскажите, как сделать так , чтобы Delphi случайным образом выбирала папку(и файл) на компьютере.
Отвечает: Маренич Владимир
Здравствуйте, Исаков Евгений Владимирович!
Два варианта:
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.