随机显示我的几张图片!高分！

Question

小弟想在一窗体上加在图片，能够随机显示我的几张图片！有何解觉方案！最好有源代码！

Answer 1

大概如此,你可修改修改!!
var
   sFN: array[1..10] of string;
begin
   Randomize;
   sFn[1] := 'c:\1.jpg';
   sFn[2] := 'c:\2.jpg';
   sFn[3] := 'c:\3.jpg';
   sFn[4] := 'c:\4.jpg';
   sFn[5] := 'c:\5.jpg';
   Image1.Picture.LoadFromFile(sFn[Random(10)]);end;

Answer 2

sFn[1] := 'c:\1.jpg';
   sFn[2] := 'c:\2.jpg';
   sFn[3] := 'c:\3.jpg';
   sFn[4] := 'c:\4.jpg';
   sFn[5] := 'c:\5.jpg';
上面的目录你当然可以任意改
Image1.Picture.LoadFromFile(sFn[Random(10)])随机决定从那个目录载入图片

Answer 3

不要用绝对路径可以这样定义路径extractfilepath(application.exename)，得到程序所在的路径，然后就可以得到你的图片所在的路径的了。application.exename大概是这个，你试一下就知道了，记不清了

Answer 4

>>提问一下！图片的地方可以加到我指定的目录吗？
當然可以了, 你可用動態路徑, 也可用絕對的路徑!!

Answer 5

用個 timer定時器就可啊!! 在裹面隨機變化

Answer 6

procedure LoadImage;
var
   sFN: array[1..10] of Pchar;
begin
   Randomize;
   sFn[1] := 'c:\1.jpg';
   sFn[2] := 'c:\2.jpg';
   sFn[3] := 'c:\3.jpg';
   sFn[4] := 'c:\4.jpg';
   sFn[5] := 'c:\5.jpg';
end;Procedure Timer1Timer(Sender:Tobject);
begin
  timer1.interval:=300;
  For I:=1 to Higt(SFN) do
  begin
    Image1.Picture.LoadFromFile(sFn[Random(I)]);
    if I:=5 then I:=1;
  end; 
end;