Question

用delphi做个随机抽取某人名，具体要求如下

在本地放一个txt文件，存放一串姓名，再用DELPHI读出这个文件。按下回车键开始选取，在屏幕上不停滚动，在按下回车，停止滚动，显示抽中人的姓名，并在屏幕左侧显示，且第二次抽奖时就不会再出现这个人的名字

Answer 1

跟你说个思路：
在form上面放置一个panel。panel上面放一个label。
首先读取文件，把文件的内容显示在一个label上。
在按下回车键时，利用程序控制label的top值（由下往上滚动）。
设置一个固定位置，再按下回车键时，显示出那个位置的人的姓名。然后显示在左侧。
最后，重新读取label 的值，要去除刚才取出的那个人的姓名。

追问

能做一个给我吗？源代码，程序都一起发来。发到邮箱1191418586@qq.com

Answer 2

很简单的，建立两个stringlist，一个存储姓名列表NameList，一个存储已抽中日姓名列表SelectedList。
根据NameList.count，生成随机数，作为选中的Index，即得到随机选中的人名NameList[Index]。

追问

能做一个给我吗？源代码，程序都一起发来。发到邮箱1191418586@qq.com