文件名称：通用抽奖程序
文件大小：209KB
文件格式：ZIP
更新时间：2009-03-15 02:52:39
控件 游戏编程类 源码 资源
本程序可以实现对任何纯文本文件进行随机抽奖的功能，其中一等奖，二等奖，三等奖最多可以抽取100名，鼓励奖最多可以抽取1000名。总抽奖数量为1300人。样本的文本文件长度没有限制。 抽奖样本文件默认为当前目录下的base.txt，您也可以通过“浏览...”这个按键来指定抽奖样本文件。 抽奖等级及数量由XX奖后面的微调框来指定，但总的抽奖数量不得超过文本文件的行数，否则会报错。 抽过程中，完成进度表会显示当前任务完成的进度。 抽奖结束后，系统会提示抽奖结果文本文件保存的位置，并会自动打开这个文件。 抽奖结果文件命名规则： 第一部分为样本文件的文件名（不含扩展名） 第二部分为生成文件的月日时分秒的数字组合 第三部分为文件的扩展名“.TXT” 如样本文件名为“base.txt”，当前时间为“2001-12-19 09:13:25”，则生成的结果文件名为“base1219091325.TXT”。
【文件预览】：
使用说明.txt
pick.exe
base.txt
delphi_source
----help.pas(786B)
----help.dfm(3KB)
----pick.cfg(282B)
----pick.res(876B)
----help.dcu(4KB)
----main.pas(7KB)
----main.dfm(8KB)
----main.dcu(12KB)
----pick.dpr(315B)
----pick.dof(1KB)