ulott3d.~pas

福利彩票3D分析程序 使用Delphi开发。

unit uLott3D;

interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Math, ToolWin, ComCtrls, ExtCtrls, ZJGrid, StdCtrls, ZcExGrid,
  Menus,IniFiles;

const
   cnCellArrayMaxColCount=100;   //二维数组常量
   cnCellArrayMaxRowCount=2000;
   cnCellArrayValueNULL=-1;  //该项没有出现标志
   cnCellArrayValueOK=1;   //该项出现标志

   cnCodeListMaxCount=2000;    //开奖号码列表大小

   cnHeadLineMaxCount=1000;       //大标题个数;
   cnHeadLineItemMaxCount=300;    //子标题个数;

   cnCompages3CodeMax=100;      //三个号码组合最大个数
   cnCompages4CodeMax=50;      //四个号码组合最大个数
   cnCompages5CodeMax=50;      //五个号码组合最大个数
   cnCompages6CodeMax=50;      //六个号码组合最大个数
   cnCompages7CodeMax=50;      //七个号码组合最大个数
   cnCompages8CodeMax=45;      //八个号码组合最大个数

   cnCompages222CodeMax=50;   //2_2_2个号码组合最大个数
   cnMaxZH222=91125;          //222的最大组合数

   cnCompages333CodeMax=100; //3_3_3个号码组合最大个数
   cnMaxZH333=100000;        //333的最大组合数

   cnCompages444CodeMax=100; //4_4_4个号码组合最大个数
   cnMaxZH444=125000;        //444的最大组合数

   cnBrother2TopMax=100;    //两个号码在不同位置出现排名

   //////组3分析
   cnZH3CodeTypeNoMax=45;   //组合3，从10个选择2个号码组合，不考虑这两个号哪个是重号



   //形状定义类型
   spLineHeadRight=0;
   spLineHeadLeft=1;
   spTipToTop=2;
   spTipToBottom=3;
   spFlatToRigthTop=4;
   spFlatToRigthBottom=5;
   spLeftTopToFlat=6;
   spLeftBottomToFlat=7;
   spFlat=8;

type



  //分析号码用二维数组
  TCellArray=array[0..cnCellArrayMaxColCount,0..cnCellArrayMaxRowCount] of ShortInt;

  //开奖号码列表
  TCodeListNode=record
      CodeDateNumber:string;
      Code1:integer;
      Code2:integer;
      Code3:integer;
   end;
   TCodeList=record
      CodeList:array[0..cnCodeListMaxCount] of TCodeListNode;  //号码列表
      CurCodeCount:integer;                                    //当前号码个数
   end;

   //标题列表
   THeadLineNode=record
       Caption:string;               //大标题
       Color:TColor;                 //标题颜色
       ColBKColor:TColor;            //列背景色
       Width:integer;                //子标题列宽
       DisplayFlag:boolean;          //显示标志
       ItemCaptionList:array[0..cnHeadLineItemMaxCount] of string;  //子标题列表
       CurItemCaptionCount:integer;                                 //当前子标题个数
       HeadLinePosition:integer;            //该标题开始列（相对）第一个为0，。。。
   end;
   THeadLineList=record
       HeadLineList:array[0..cnHeadLineMaxCount] of THeadLineNode;  //标题列表
       CurHeadLineCount:integer;                                    //当前大标题个数
       IdxCode:integer;  //开奖号码位置号
       IdxOddEven:integer; //奇偶位置号
       IdxBigSmall:integer; //大小位置号
       IdxCodeCount:integer; //号码个数位置号
       IdxShape:integer; //类型位置号
       IdxLinkCode:integer; //连号个数
       IdxTreasure:integer; //开宝（双号)
       IdxBrotherPre:integer;//前两个号码分析
       IdxBrotherPost:integer;//后两个号码分析
       IdxBrother2Head:integer;//两头两个号码分析
       IdxBrother2Top:integer;//两个号码在不同位置出现排名
       IdxTrendCode1:integer; //第一个号码走势
       IdxTrendCode2:integer; //第二个号码走势
       IdxTrendCode3:integer; //第三个号码走势
       IdxPreDisplayFlag:integer; //该号码以前是否出现过
       IdxPreDisplayFlagCurN:integer; //该号码以前是否出现过(近n期）
       IdxCodeCheck:integer;  //号码验证排列
       IdxCodeCheckZH6:integer;  //号码验证组6
       IdxCompages3Code:integer; //三个号码组合
       IdxCompages4Code:integer; //四个号码组合
       IdxCompages5Code:integer; //五个号码组合
       IdxCompages6Code:integer; //六个号码组合
       IdxCompages7Code:integer; //七个号码组合
       IdxCompages8Code:integer; //八个号码组合
       IdxCompages222Code:integer; //222个号码组合
       IdxCompages333Code:integer; //333个号码组合
       IdxCompages444Code:integer; //444个号码组合
       IdxPreDispNCurDisp:integer; //以前号码反复出现>=N倍，本次出现
       IdxCompages3BeforeN:integer;//组合3排在前N个组合
       IdxNCompages:integer;  //多种组合方式
       IdxZH3TenCode:integer;  //组合3分析10个号码都选择
       IdxZH3CodeTypeNo:integer;   //组合3，从10个号中取2个共45个组合
       IdxZH3Code45SelectN:integer;  //组合3，从45个取前N个出现最多的
   end;

   //背景颜色列表
   TBackColorList=record
       clEndCodeBKColor:TColor; // 最后一个号码显示的颜色
       clColColorList:array[0..3] of TColor; //列颜色
       clSecondHeadLineBKColor:TColor; //第二个标题背景色
       clJunColor:TColor;// 平均数颜色
       clJianColor:TColor; //推荐颜色
       clNoDisplayCount:TColor; //没有出现期数
   end;

   //2个号码组合列表
   TCompages2CodeNode=record
         Code1:integer;
         Code2:integer;
         Count:integer;
   end;


   //3个号码组合列表
   TCompages3CodeNode=record
         Code1:integer;
         Code2:integer;
         Code3:integer;
         Count:integer;
   end;
   TCompages3CodeList=record
         OnlgFlag:boolean;  //号码是否唯一
         Compages3CodeList:array[0..cnCompages3CodeMax-1] of  TCompages3CodeNode;
   end;

   //4个号码组合列表
   TCompages4CodeNode=record
         Code1:integer;
         Code2:integer;
         Code3:integer;
         Code4:integer;
         Count:integer;
   end;
   TCompages4CodeList=record
         OnlgFlag:boolean;  //号码是否唯一
         Compages4CodeList:array[0..cnCompages4CodeMax-1] of  TCompages4CodeNode;
   end;

   //5个号码组合列表
   TCompages5CodeNode=record
         Code1:integer;
         Code2:integer;
         Code3:integer;
         Code4:integer;
         Code5:integer;
         Count:integer;
   end;
   TCompages5CodeList=record
         OnlgFlag:boolean;  //号码是否唯一
         Compages5CodeList:array[0..cnCompages5CodeMax-1] of  TCompages5CodeNode;
   end;

   //6个号码组合列表
   TCompages6CodeNode=record
         Code1:integer;
         Code2:integer;
         Code3:integer;
         Code4:integer;
         Code5:integer;
         Code6:integer;
         Count:integer;
   end;
   TCompages6CodeList=record
         OnlgFlag:boolean;  //号码是否唯一
         Compages6CodeList:array[0..cnCompages6CodeMax-1] of  TCompages6CodeNode;
   end;


   //7个号码组合列表
   TCompages7CodeNode=record
         Code1:integer;
         Code2:integer;
         Code3:integer;
         Code4:integer;
         Code5:integer;
         Code6:integer;
         Code7:integer;
         Count:integer;
   end;
   TCompages7CodeList=record
         OnlgFlag:boolean;  //号码是否唯一
         Compages7CodeList:array[0..cnCompages7CodeMax-1] of  TCompages7CodeNode;
   end;

   //8个号码组合列表
   TCompages8CodeNode=record
         Code1:integer;
         Code2:integer;
         Code3:integer;
         Code4:integer;
         Code5:integer;
         Code6:integer;
         Code7:integer;
         Code8:integer;
         Count:integer;
   end;
   TCompages8CodeList=record
         OnlgFlag:boolean;  //号码是否唯一
         Compages8CodeList:array[0..cnCompages8CodeMax-1] of  TCompages8CodeNode;
   end;


   //两个号码在不同位置出现排名
   TBrother2TopNode=record
        Code1:integer;
        Code2:integer;
        CodeType:string;
        Count:integer;
   end;


   //2_2_2个号码组合列表
   TCompages222CodeNode=record
         Code1_1:Shortint	;
         Code1_2:Shortint	;
         Code2_1:Shortint	;
         Code2_2:Shortint	;
         Code3_1:Shortint	;
         Code3_2:Shortint	;
         Count:integer;
   end;
   TCompages222CodeList=record
         OnlgFlag:boolean;  //号码是否唯一
         Compages222CodeList:array[0..cnCompages222CodeMax-1] of  TCompages222CodeNode;
   end;

   //3_3_3个号码组合列表
   TCompages333CodeNode=record
         Code1_1:Shortint	;
         Code1_2:Shortint	;
         Code1_3:Shortint ;
         Code2_1:Shortint	;
         Code2_2:Shortint	;
         Code2_3:Shortint ;
         Code3_1:Shortint	;
         Code3_2:Shortint	;
         Code3_3:Shortint ;
         Count:integer;
   end;
   TCompages333CodeList=record
         OnlgFlag:boolean;  //号码是否唯一
         Compages333CodeList:array[0..cnCompages333CodeMax-1] of  TCompages333CodeNode;
   end;

   //4_4_4个号码组合列表
   TCompages444CodeNode=record
         Code1_1:Shortint	;
         Code1_2:Shortint	;
         Code1_3:Shortint ;
         Code1_4:Shortint ;
         Code2_1:Shortint	;