Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Загрузка случайного файла


МегаПупс ©   (2007-04-03 23:24:00) 

Подскажите, как написать процедуру, которая бы загружала(случайным образом) из заданного каталога картинку с разрешением *.jpg в TImage, а имя, загруженного файла присваивалось Tlabel ??


Германн   (2007-04-04 01:25:00) [1]

+ к Джо ©   (04.04.07 00:47) [2]
Для простоты можно вначале работы процедуры воспользоваться TFileListBox.


Джо   (2007-04-04 00:47:00) [2]

Генерация псевдо-случайной последовательности — Random (F1).

Загрузка jpeg-картинки в TImage — uses Jpeg и Image.Picture.LoadFromFile (F1)

Надпись на TLabel — Label.Caption := 'надпись' (F1)

Оставшееся — умение читать, умение понимать прочитанное.


Johnmen   (2007-04-03 23:49:00) [3]


> которая бы загружала(случайным образом)

Типа, слева-направо, сверху-вниз, сзаду-наперед?


Наверх

Титульная страница Поиск, карта сайта Написать письмо