怎样才能让图像在两个bmp图片之间切换？？

Question

主要代码如下：
procedure TForm1.GetAlarm;
var
 ARec:PMyList;
begin
  new(ARec);
  ARec^.Str:='D:\2\zf\PRJ\f2.bmp';
  FireList.Add(ARec);
  new(arec);
  ARec^.Str:='D:\2\zf\PRJ\log.bmp';
  firelist.Add(arec);
  for KLs:=0 to FireList.Count-1 do
  begin
   ARec:=FireList.Items[KLs];
   Image1.Picture.Bitmap.LoadFromFile(arec^.Str);
  end;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
 GetAlarm;
end;type
  PMyList = ^AList;
  AList = record
  Str:String;
 end;现在每次只能显示第二副图片，能否隔一段时间就切换显示图片

Answer 1

for KLs:=0 to FireList.Count-1 do
  begin
   ARec:=FireList.Items[KLs];
   Image1.Picture.Bitmap.LoadFromFile(arec^.Str);
  end;
晕，你这个循环，最后当然显示的是第二张图片了，
你在这里用随机，取FIRELIST。COUNT的随机数，就行了，然后再LOAD啊，

Answer 2

分别把图片路径放到一个数组里pic[i];procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if i>图片个数 then
   i=0;
 else
 begin
 图片=pic[i+1]; 
 Image1.Picture.Bitmap.LoadFromFile(图片);
end;这应该不是很难吧。

Answer 3

Random()你首先要用Randomize来初始化随机函数，才能用RANDOM（）