盒子论坛 v2.1

procedure TForm1.FormPaint(Sender: TObject);
const
  del_y=20;
var
i, data,y:integer;
aa:array[1..10] of integer;
begin
  y:=0;
  randomize();
  data:=random(45);
  i:=1;
  aa[i]:=data;

  for i:=2 to 7 do
  begin
   if aa[i]<>data then
   begin
    data:=random(45);
    if (data=0) then
    begin
     data:=random(45);
    end;
     aa[i]:=data;

    y:=y+20;
     canvas.TextOut(20,y,inttostr(data));
   end;

  end;
end;

----------------------------------------------
-

作者：

iamdream (银河恒久远，梦想无止境！)	★☆☆☆☆	-
	大贡献会员

2003/12/3 13:25:27

1楼：

先执行一下Randomize.
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

信息

登陆以后才能回复