![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Загрузка случайного файла
МегаПупс © (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]
> которая бы загружала(случайным образом)
Типа, слева-направо, сверху-вниз, сзаду-наперед?