文件名称：delphi_随机滚动_抽奖
文件大小：230KB
文件格式：RAR
更新时间：2014-04-12 08:56:15
delphi 随机滚动 抽奖
unit UnitMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, math, Buttons; type TRandomForm = class(TForm) Button1: TButton; Timer1: TTimer; EditPath: TEdit; ListBox1: TListBox; Button2: TButton; SpeedButton1: TSpeedButton; EditName: TEdit; OpenDialog: TOpenDialog; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Button1KeyPress(Sender: TObject; var Key: Char); procedure FormShow(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private s: TStringList; //从文件中读取数据 Current: Integer; //随机数产生的序号 Num: Integer; //数组中的数量 I: Integer; //序号 public // procedure LoadFile; // 装载文件 procedure GetNameValue; end;
【文件预览】：
随机滚动
----__history()
--------UnitMain.dfm.~29~(1KB)
--------UnitMain.dfm.~31~(1KB)
--------UnitMain.pas.~111~(3KB)
--------UnitMain.pas.~117~(3KB)
--------UnitMain.pas.~112~(3KB)
--------UnitMain.pas.~113~(3KB)
--------UnitMain.pas.~116~(3KB)
--------UnitMain.dfm.~25~(1KB)
--------UnitMain.dfm.~24~(1KB)
--------UnitMain.pas.~110~(3KB)
--------UnitMain.dfm.~28~(1KB)
--------UnitMain.dfm.~32~(1KB)
--------UnitMain.dfm.~26~(1KB)
--------UnitMain.pas.~114~(3KB)
--------UnitMain.dfm.~30~(1KB)
--------UnitMain.pas.~119~(3KB)
--------UnitMain.dfm.~23~(1KB)
--------UnitMain.pas.~118~(3KB)
--------UnitMain.dfm.~27~(1KB)
--------UnitMain.pas.~115~(3KB)
----RandomPro.dpr(252B)
----UnitMain.pas(3KB)
----UnitMain.dcu(7KB)
----RandomPro.identcache(227B)
----RandomPro.res(5KB)
----RandomPro.dproj(4KB)
----123.dat(55B)
----RandomPro.exe(495KB)
----UnitMain.dfm(1KB)
----RandomPro.dproj.local(813B)