delphi 操作 excel 进行随机点名抽签的

delphi 操作 excel 进行随机点名抽签的例子

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件    4191836  2007-12-25 08:24  excelapp\mifufont.ttf

     文件        434  2012-03-13 18:25  excelapp\Project1.cfg

     文件      17068  2012-03-16 09:59  excelapp\Project1.dof

     文件        188  2012-03-13 18:25  excelapp\Project1.dpr

     文件     724992  2012-03-16 09:22  excelapp\Project1.exe

     文件      17068  2012-03-13 20:39  excelapp\Project1.res

     文件      11264  2012-12-15 15:29  excelapp\stu.xls

     文件       7817  2012-03-16 09:10  excelapp\Unit1.dcu

     文件         51  2012-03-16 08:32  excelapp\Unit1.ddp

     文件     181481  2012-03-16 09:22  excelapp\Unit1.dfm

     文件       2636  2012-03-16 09:08  excelapp\Unit1.pas

     文件         51  2012-03-16 08:31  excelapp\Unit1.~ddp

     文件      58647  2012-03-16 09:19  excelapp\Unit1.~dfm

     文件       2636  2012-03-16 09:08  excelapp\Unit1.~pas

     目录          0  2012-12-15 15:29  excelapp

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

              5216169                    15