Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:多媒体技术    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  下载开奖数据成功  
 
procedure TMainForm.BakOnDataDowned(Strs: TStringList);
var i,j,k,aQi,Index,aNum,NumX1,NumX2:Integer; CodeStr,aStr:string; subStrs,NumStrs:TStringList;
begin
//ShowMessage("BakOnDataDowned"); //下载数据,则进入这个
//数据格式: 2007002##04 17 23 27 35+03 06
FCellCtrl.Clear;
for i :=0 to Strs.Count-1 do begin
subStrs:=SliceStrToStrs("#",Trim(Strs.Strings[i]));
Index:=FCellCtrl.Recs.Add;
aNum:=StrToInt(Copy(subStrs.Strings[0],1,4));
FCellCtrl.Recs.Item[Index].Year:=aNum;
aNum:=StrToInt(Copy(subStrs.Strings[0],5,3));
FCellCtrl.Recs.Item[Index].Qi:=aNum;
aQi:=aNum mod 1000;//StrToInt(Copy(subStrs.Strings[0],5,3));
// FCellCtrl.Recs.Item[Index].Qi:=aQi;
for j :=1 to 7 do begin //第1-5位是前区,第6-7位是后区
NumX1:=StrToInt(JieMiData(j*3-2,IntToStr(aQi),Copy(subStrs.Strings[1],j*3-2,1)));
NumX2:=StrToInt(JieMiData(j*3-2+1,IntToStr(aQi),Copy(subStrs.Strings[1],j*3-2+1,1)));
FCellCtrl.Recs.dltNum[j,Index]:=NumX1*10+NumX2;
end;
end;
FileMenuDown.Enabled:=true;
FileMenuDownBt.Enabled:=true;

//FCellCtrl.Recs 号码储存到 FQiCodeRecArr
SetLength(FQiCodeRecArr,FCellCtrl.Recs.Count);
for i :=0 to FCellCtrl.Recs.Count-1 do begin
FQiCodeRecArr[i].Qi:= FCellCtrl.Recs.Item[i].Year*1000+FCellCtrl.Recs.Item[i].Qi;
for j :=1 to 5 do
FQiCodeRecArr[i].FrontCodeRec[j]:= FCellCtrl.Recs.Item[i].dltNum[j];
for j :=1 to 2 do
FQiCodeRecArr[i].BackCodeRec[j]:= FCellCtrl.Recs.Item[i].dltNum[j+5];
end;

ViewDataBtClick(nil);
PostMessage(FCellCtrl.Handle,WM_VSCROLL,SB_BOTTOM,0);
ShowMessage("下载开奖数据成功!");

end;

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站