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