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