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