 Загрузка случайного файла из каталога |
ВНИМАНИЕ!
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
| Dead.MorozZ |
 3.04.2007 22:23
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 108 Пол: Мужской Реальное имя: Георгий Репутация:  0   |
Подскажите, как написать процедуру, которая бы загружала(случайным образом) из заданного каталога картинку с разрешением *.jpg в TImage, а имя, загруженного файла присваивалось Tlabel ??
-------------------- Минус - это уже половина плюса, а плюс порой - целых два минуса...
|
   |
 
|
  |
Ответов
| volvo |
3.04.2007 22:29
Сообщение
#2
|
|
Гость |
Dead.MorozZ, FindFirst/FindNext для заданного расширения файлов, имена файлов пишутся в динамический массив, Random-ом генерируется случайное число в диапазоне 1 .. ЧислоФайлов, и из массива выбирается соответствующий элемент... Вот и все...
|
|
|
|
Сообщений в этой теме
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 8.07.2025 23:34 |