文件名称：随机抽号系统
文件大小：923KB
文件格式：EXE
更新时间：2015-06-19 04:41:38
随机抽号
购房随机抽号系统. if FileExists(GetCurrentDir()+'\sysE.ini') then begin //读取 inif:=tinifile.Create(GetCurrentDir()+'\sysE.ini'); finishnumstr:=inif.Readstring('已选次数','已选次数',finishnumstr); decnumstr:=inif.Readstring('工作人员','工作人员',decnumstr); finishnum:=strtoint(finishnumstr); decnum:=strtoint(decnumstr); Label7.Caption:=inttostr(finishnum); w1:=inif.ReadString('一组','一组',w1); for i:=1 to 100 do begin c[i]:=copy(w1,i,1); end; w2:=inif.ReadString('二组','二组',w2); for i:=101 to 200 do begin c[i]:=copy(w2,i-100,1); end; w3:=inif.ReadString('三组','三组',w3); for i:=201 to 300 do begin c[i]:=copy(w3,i-200,1); end; w4:=inif.ReadString('四组','四组',w4); for i:=301 to 400 do begin c[i]:=copy(w4,i-300,1); end; w5:=inif.ReadString('五组','五组',w5); for i:=401 to 500 do begin c[i]:=copy(w5,i-400,1); end; w6:=inif.ReadString('六组','六组',w6); for i:=501 to 600 do begin c[i]:=copy(w6,i-500,1); end; w7:=inif.ReadString('七组','七组',w7); for i:=601 to 700 do begin c[i]:=copy(w7,i-600,1); end; w8:=inif.ReadString('八组','八组',w8); for i:=701 to 800 do begin c[i]:=copy(w8,i-700,1); end; w9:=inif.ReadString('九组','九组',w9); for i:=801 to 900 do begin c[i]:=copy(w9,i-800,1); end; w10:=inif.ReadString('十组','十组',w10); inif.Free; end else //文件不存在处理 showmessage('配置文件不存在,请先进行系统配置!'); end;