ulott3d.~pas

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

          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=10;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxTrendCode1',true);
          IdxTrendCode1:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;

    //第二个号码走势
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='第二个号码走势';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          for j:=0 to 9 do HeadLineList[CurHeadLineCount].ItemCaptionList[j]:=IntToStr(j);
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=10;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxTrendCode2',true);
          IdxTrendCode2:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;

    //第三个号码走势
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='第二个号码走势';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          for j:=0 to 9 do HeadLineList[CurHeadLineCount].ItemCaptionList[j]:=IntToStr(j);
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=10;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxTrendCode3',true);
          IdxTrendCode3:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;

    //该号码以前是否出现过
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='以前出现';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='否';
          HeadLineList[CurHeadLineCount].ItemCaptionList[1]:='是';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=2;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxPreDisplayFlag',true);
          IdxPreDisplayFlag:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;

    //该号码以前是否出现过（近n期）
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='前现近n期';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='否';
          HeadLineList[CurHeadLineCount].ItemCaptionList[1]:='是';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=2;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxPreDisplayFlagCurN',true);
          IdxPreDisplayFlagCurN:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;

    //号码验证排列
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='验证';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='排列';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=1;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCodeCheck',true);
          IdxCodeCheck:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;

    //号码验证组6
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='验证';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='组6';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=1;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCodeCheckZH6',true);
          IdxCodeCheckZH6:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;
    

    //3个号码组合
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='3个号码组合     3个号码组合     3个号码组合   3个号码组合   3个号码组合  3个号码组合';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          for j:=0 to cnCompages3CodeMax-1 do
              HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='组3';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages3CodeMax;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages3Code',true);
          IdxCompages3Code:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;

    //4个号码组合
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='4个号码组合     4个号码组合     4个号码组合   4个号码组合   4个号码组合  4个号码组合';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          for j:=0 to cnCompages4CodeMax-1 do
              HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='组4';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages4CodeMax;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages4Code',true);
          IdxCompages4Code:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;

    //5个号码组合
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='5个号码组合     5个号码组合     5个号码组合   5个号码组合   5个号码组合  5个号码组合';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          for j:=0 to cnCompages5CodeMax-1 do
              HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='组5';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages5CodeMax;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages5Code',true);
          IdxCompages5Code:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;

    //6个号码组合
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='6个号码组合     6个号码组合     6个号码组合   6个号码组合   6个号码组合  6个号码组合';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          for j:=0 to cnCompages6CodeMax-1 do
              HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='组6';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages6CodeMax;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages6Code',true);
          IdxCompages6Code:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;

    //7个号码组合
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='7个号码组合     7个号码组合     7个号码组合   7个号码组合   7个号码组合  7个号码组合';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          for j:=0 to cnCompages7CodeMax-1 do
              HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='组7';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages7CodeMax;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages7Code',true);
          IdxCompages7Code:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;


     //8个号码组合
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='8个号码组合     8个号码组合     8个号码组合   8个号码组合   8个号码组合  8个号码组合';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          for j:=0 to cnCompages8CodeMax-1 do
              HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='组8';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages8CodeMax;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages8Code',true);
          IdxCompages8Code:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;


    //222个号码组合
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='222个号码组合     222个号码组合     222个号码组合   222个号码组合   222个号码组合  222个号码组合';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          for j:=0 to cnCompages222CodeMax-1 do
              HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='组222';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages222CodeMax;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages222Code',true);
          IdxCompages222Code:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;

    //333个号码组合
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='333个号码组合     333个号码组合     333个号码组合   333个号码组合   333个号码组合  333个号码组合';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          for j:=0 to cnCompages333CodeMax-1 do
              HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='组333';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages333CodeMax;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages333Code',true);
          IdxCompages333Code:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;


     //444个号码组合
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='444个号码组合     444个号码组合     444个号码组合   444个号码组合   444个号码组合  444个号码组合';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          for j:=0 to cnCompages444CodeMax-1 do
              HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='组444';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages444CodeMax;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages444Code',true);
          IdxCompages444Code:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;


    ///以前出现>=N次，本次又出现
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='以前出现>=N次，本次又出现';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='未';
          HeadLineList[CurHeadLineCount].ItemCaptionList[1]:='出现';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=2;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=true;
          IdxPreDispNCurDisp:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;


    ///组合3排在前N个组合，出现情况
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='组合3排在前N个组合本次出现';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='出现';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=1;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=true;
          IdxCompages3BeforeN:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;


    ///多种组合方式，大小、奇偶、形状、个数等
    with gl_HeadLineList do
    begin
          HeadLineList[CurHeadLineCount].Caption:='多种组合方式，大小、奇偶、形状、相连、个数、指定号码、包含号码';
          HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
          HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
          HeadLineList[CurHeadLineCount].Width:=22;
          HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='出现';
          HeadLineList[CurHeadLineCount].CurItemCaptionCount:=1;
          HeadLIneList[CurHeadLineCount].DisplayFlag:=true;
          IdxNCompages:=CurHeadLineCount;
          CurHeadLineCount:=CurHeadLineCount+1;
    end;

    //*********************************************************************//
    //组合3，十个号码全选