Рендомная картинка

[Rock2roll]

Нужно чтобы при случайном выборе ставала картинка(одна из . Не могу осуществить. А без репит прога не так работает.

Procedure desk;
begin
if random(8)=1 then drawImage(a,0,0);
if random(8)=2 then drawImage(a1,0,0);
if random(8)=3 then drawImage(a2,0,0);
if random(8)=4 then drawImage(a3,0,0);
if random(8)=5 then drawImage(a4,0,0);
if random(8)=6 then drawImage(a5,0,0);
if random(8)=7 then drawImage(a6,0,0);
if random(8)=8 then drawImage(a7,0,0);
repeat
drawImage(today,0,getheight-26);
drawImage(pan,0,0);
drawImage(start,0,0);
if (x>0) and (x<38) and (y>0) and (y<26) then drawImage(start2,0,0);
//////
setcolor(255,255,255);
time:=getCurrentTime; 
times:=''+getHour(time); 
times:=times+':'+ getMinute(time);
drawText(times,getwidth-38,5);

//////
mouseX;
repaint;
until bulOff=true;
end;

[Igor]

Одна картинка должна рисоваться без repeat untill

[Rock2roll]

а пример кода можно?

[Igor]

На данный момент заметил один недочет
0<=random ( 8 )<8
было бы лучше

Procedure desk;
var a:array [0..7]of image;
begin
...
drawimage(a[random( 8 )]),x,y);

А что именно от программки требуется?
Поподробнее напиши.

[Rock2roll]

огромное спасибо

[Rock2roll]

нужно чтобы одно из восьми картинок ставилась на фон. Это картинки а(от просто а до а7)

[Igor]

А зачем тогда весь остальной код? (repeat и далее)

[Rock2roll]

нужно кроме фоновой картинки ещё поверх этого пару картинок + типа стрелочка что бегает при нажатии на кнопки

[Igor]

А тебе не кажется, что картинку придется заново отрисовывать?

[Rock2roll]

каким образом?

[cherepets]

Не хочу тебя удивлять, но рандом нужно считать в переменную и уже дальше с ним работать, иначе ты каждый раз генеришь число заново и картинка может вообще не загрузиться

[Rock2roll]

У меня грузилась, но в цыкле бешено менялась на одну из 8! Было весело. Смотришь, а вместо фона меняются 8 картинок))
З.Ы. я уже решил проблему