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	;