版主,版主,帮帮小弟的忙吧,其实问题对于你很简单.

Question

小弟正在做一个屏保软件,有两个问题请教大侠:
  1.想加入背景音乐,源文件是MP3,有3M,最好用什么工具把它转换成那一种文件,又怎样用代码加入,播放音乐要循环.
  2.软件有6种动画特效,如百叶窗,旋转等,有6个控件都分别加载了图片,怎样随机产生一个数字随机调用一幅图片,不用CASE语句.
var
   k:integer;
begin
   k:=radom(6);//随机产生一个数,让它调用ＩＭＭＡＧＥＫ.
   image[k].visible:=true;
end;   
   上面的语句编译不过去,怎样改进它.
  谢谢.

Answer 1

K := random(6) 
the result may equal 0
and you write wrong

Answer 2

var
   k:integer;
begin
   Randomize;
   k:=random(6);//随机产生一个数,让它调用ＩＭＭＡＧＥＫ.
   image[k].visible:=true;
end;

Answer 3

或者var
   k:integer;
begin
   Randomize;
   k:=RandomRange(1,6);//随机产生一个数,让它调用ＩＭＭＡＧＥＫ.
   image[k].visible:=true;
end;

Answer 4

加入背景音乐,用OLE控件就可以实现。

Answer 5

iamge[k],我这样写，根本编译不通，不知大家怎么写的

Answer 6

基本上我是将文件名得出之后,再加载相关图片,而不是利出控件数组,在DELPHI中不支持控件数组,但是DELPHI支持控件调用, 你不如将控件名写出来,然后写一个过程,参数就是SENDER :TIMAGE,估计应该可以,我好象以前做过, 但是具体如何做,这两年做VB去了,有些生了

Answer 7

另外如果楼主有播放MP3的程序给我一个EMAIL:[email protected]