求教摇号程序

看了很多节目里都有摇号抽奖.我也想做个类似的程序.开始觉得很简单.可是真做起来就遇到以下几个问题.1.想实现按个按钮后数字在屏幕上滚动,再按下出现数字.
2.随机数是在一定范围内生成的.如1..300之间,并且产生出来的数字以后不能出现.
以上的情况汇报不要用数据库,只用数组.
请高手帮解决下.

解决方案 »

  1.   

    去年做过一个。。可惜这么不能传图片和rar，先粘贴个模拟的结果吧：所有奖等
    三等奖
    张总监   开奖数:[3]
    016:刘振扬(C部门)
    007:苏琼慧(D部门)
    035:廖佩桦(A部门)
    李总监   开奖数:[3]
    012:李清富(A部门)
    020:陈志青(D部门)
    037:王冠乐(E部门)
    赵总监   开奖数:[3]
    025:狄海全(C部门)
    029:张钰奇(C部门)
    018:林柏钧(A部门)
    刘总监   开奖数:[3]
    036:江竹念(D部门)
    004:杨韵婷(E部门)
    010:涂淑萍(A部门)
    二等奖
    马副总裁   开奖数:[4]
    022:吴辰齐(A部门)
    027:陈嘉豪(B部门)
    021:张孟儒(C部门)
    026:陈恩定(C部门)
    陈副总裁   开奖数:[4]
    023:沈兰其(A部门)
    006:朱右轩(D部门)
    026:陈恩定(C部门)
    032:刘志杰(D部门)
    一等奖
    周总裁   开奖数:[3]
    026:陈恩定(C部门)
    028:李仕佩(D部门)
    006:朱右轩(D部门)（此次设置，二等奖是可重复的，所以 陈恩定 中了2次）
      

  2.   

    树形的层次没有了？！所有奖等
    三等奖
    张总监   开奖数:[3]
    016:刘振扬(C部门)
    007:苏琼慧(D部门)
    035:廖佩桦(A部门)
    李总监   开奖数:[3]
    012:李清富(A部门)
    020:陈志青(D部门)
    037:王冠乐(E部门)
    赵总监   开奖数:[3]
    025:狄海全(C部门)
    029:张钰奇(C部门)
    018:林柏钧(A部门)
    刘总监   开奖数:[3]
    036:江竹念(D部门)
    004:杨韵婷(E部门)
    010:涂淑萍(A部门)
    二等奖
    马副总裁   开奖数:[4]
    022:吴辰齐(A部门)
    027:陈嘉豪(B部门)
    021:张孟儒(C部门)
    026:陈恩定(C部门)
    陈副总裁   开奖数:[4]
    023:沈兰其(A部门)
    006:朱右轩(D部门)
    026:陈恩定(C部门)
    032:刘志杰(D部门)
    一等奖
    周总裁   开奖数:[3]
    026:陈恩定(C部门)
    028:李仕佩(D部门)
    006:朱右轩(D部门)
      

  3.   

    我用Panel1.caption:=inttostr(Random(..)) 方式显示号码.但是,我在按下Button1按钮后怎么实现让Panel1.caption在屏幕上不断变化,又怎样在再按下Button1后停止变化,显示出号码来呢?
      

  4.   

    Button1显示出号码，由定时器去做，每次随机选择一个来显示按钮决定定时器的启动或停止
      

  5.   

    可使用TListString存储所有名单
    再多次随机交换两个位置打乱
    显示时从头开始
    抽中一个从中摘除一个
    再继续...