ugetcode.pas

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

unit uGetCode;

interface

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

type
  TFormGetCode = class(TForm)
    GroupBox1: TGroupBox;
    CheckBoxOneTwo0: TCheckBox;
    CheckBoxOneTwo1: TCheckBox;
    CheckBoxOneTwo2: TCheckBox;
    CheckBoxOneTwo3: TCheckBox;
    CheckBoxSelectOneTwo: TCheckBox;
    GroupBox2: TGroupBox;
    CheckBoxBig0: TCheckBox;
    CheckBoxBig1: TCheckBox;
    CheckBoxBig2: TCheckBox;
    CheckBoxBig3: TCheckBox;
    CheckBoxSelectBig: TCheckBox;
    GroupBox6: TGroupBox;
    CheckBoxLink0: TCheckBox;
    CheckBoxLink1: TCheckBox;
    CheckBoxLink2: TCheckBox;
    CheckBoxSelectLink: TCheckBox;
    GroupBox7: TGroupBox;
    CheckBoxDouble0: TCheckBox;
    CheckBoxDouble1: TCheckBox;
    CheckBoxDouble2: TCheckBox;
    CheckBoxSelectDouble: TCheckBox;
    GroupBox12: TGroupBox;
    CheckBoxNumCount1: TCheckBox;
    CheckBoxNumCount2: TCheckBox;
    CheckBoxNumCount3: TCheckBox;
    CheckBoxSelectNumCount: TCheckBox;
    GroupBox13: TGroupBox;
    CheckBoxType1: TCheckBox;
    CheckBoxType2: TCheckBox;
    CheckBoxType3: TCheckBox;
    CheckBoxType4: TCheckBox;
    CheckBoxSelectType: TCheckBox;
    CheckBoxType5: TCheckBox;
    CheckBoxType6: TCheckBox;
    CheckBoxType8: TCheckBox;
    CheckBoxType7: TCheckBox;
    ZcPersistGridGetCode: TZcPersistGrid;
    ButtonGetCode: TButton;
    GroupBox3: TGroupBox;
    CheckBoxPreDisplayNo: TCheckBox;
    CheckBoxPreDisplayYes: TCheckBox;
    CheckBoxSelectPreDisplay: TCheckBox;
    CheckBoxType9: TCheckBox;
    GroupBox4: TGroupBox;
    CheckBoxDefine1_0: TCheckBox;
    CheckBoxDefine1_2: TCheckBox;
    CheckBoxDefine1_3: TCheckBox;
    CheckBoxSelectDefine3Code: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    CheckBoxDefine1_1: TCheckBox;
    CheckBoxDefine1_4: TCheckBox;
    CheckBoxDefine1_5: TCheckBox;
    CheckBoxDefine1_6: TCheckBox;
    CheckBoxDefine1_7: TCheckBox;
    CheckBoxDefine1_8: TCheckBox;
    CheckBoxDefine1_9: TCheckBox;
    CheckBoxDefine2_0: TCheckBox;
    CheckBoxDefine2_1: TCheckBox;
    CheckBoxDefine2_2: TCheckBox;
    CheckBoxDefine2_3: TCheckBox;
    CheckBoxDefine2_4: TCheckBox;
    CheckBoxDefine2_5: TCheckBox;
    CheckBoxDefine2_6: TCheckBox;
    CheckBoxDefine2_7: TCheckBox;
    CheckBoxDefine2_8: TCheckBox;
    CheckBoxDefine2_9: TCheckBox;
    CheckBoxDefine3_0: TCheckBox;
    CheckBoxDefine3_1: TCheckBox;
    CheckBoxDefine3_2: TCheckBox;
    CheckBoxDefine3_3: TCheckBox;
    CheckBoxDefine3_4: TCheckBox;
    CheckBoxDefine3_5: TCheckBox;
    CheckBoxDefine3_6: TCheckBox;
    CheckBoxDefine3_7: TCheckBox;
    CheckBoxDefine3_8: TCheckBox;
    CheckBoxDefine3_9: TCheckBox;
    GroupBox5: TGroupBox;
    CheckBoxSelectDefineCode: TCheckBox;
    CheckBoxDefineCode0: TCheckBox;
    CheckBoxDefineCode1: TCheckBox;
    CheckBoxDefineCode2: TCheckBox;
    CheckBoxDefineCode3: TCheckBox;
    CheckBoxDefineCode4: TCheckBox;
    CheckBoxDefineCode5: TCheckBox;
    CheckBoxDefineCode6: TCheckBox;
    CheckBoxDefineCode7: TCheckBox;
    CheckBoxDefineCode8: TCheckBox;
    CheckBoxDefineCode9: TCheckBox;
    ButtonAddRow: TButton;
    GroupBox8: TGroupBox;
    CheckBox3CodeZHOnly: TCheckBox;
    CheckBox4CodeZHOnly: TCheckBox;
    ButtonSaveParam: TButton;
    GroupBox9: TGroupBox;
    EditDisplayCurN: TEdit;
    Label4: TLabel;
    RadioGroup1: TRadioGroup;
    RadioButtonAddRow: TRadioButton;
    RadioButtonRefresh: TRadioButton;
    GroupBoxIdxTrendCode1: TGroupBox;
    CheckBoxIdxOddEven: TCheckBox;
    CheckBoxIdxBigSmall: TCheckBox;
    CheckBoxIdxTrendCode1: TCheckBox;
    CheckBoxIdxBrother2Head: TCheckBox;
    CheckBoxIdxBrotherPost: TCheckBox;
    CheckBoxIdxBrotherPre: TCheckBox;
    CheckBoxIdxTreasure: TCheckBox;
    CheckBoxIdxLinkCode: TCheckBox;
    CheckBoxIdxShape: TCheckBox;
    CheckBoxIdxCodeCount: TCheckBox;
    CheckBoxIdxTrendCode2: TCheckBox;
    CheckBoxIdxTrendCode3: TCheckBox;
    CheckBoxIdxPreDisplayFlag: TCheckBox;
    CheckBoxIdxPreDisplayFlagCurN: TCheckBox;
    CheckBoxIdxCodeCheck: TCheckBox;
    CheckBoxIdxCompages3Code: TCheckBox;
    CheckBoxIdxCompages4Code: TCheckBox;
    Label5: TLabel;
    Label6: TLabel;
    ZcPersistGrid3D6: TZcPersistGrid;
    Panel3: TPanel;
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox10: TGroupBox;
    Label7: TLabel;
    EditPreNDispCurDisp: TEdit;
    GroupBox11: TGroupBox;
    CheckBoxPreDispN: TCheckBox;
    EditPreDispN: TEdit;
    Label8: TLabel;
    EditCompages3BeforeN: TEdit;
    ButtonCellClear: TButton;
    MemoCode: TMemo;
    CheckBoxNCompagesProcess: TCheckBox;
    GroupBox14: TGroupBox;
    CheckBoxSelectINCode: TCheckBox;
    CheckBoxSelectInCode0: TCheckBox;
    CheckBoxSelectInCode1: TCheckBox;
    CheckBoxSelectInCode2: TCheckBox;
    CheckBoxSelectInCode3: TCheckBox;
    CheckBoxSelectInCode4: TCheckBox;
    CheckBoxSelectInCode5: TCheckBox;
    CheckBoxSelectInCode6: TCheckBox;
    CheckBoxSelectInCode7: TCheckBox;
    CheckBoxSelectInCode8: TCheckBox;
    CheckBoxSelectINCode9: TCheckBox;
    EditZH3Code45GetPreN: TEdit;
    Label9: TLabel;
    procedure ButtonGetCodeClick(Sender: TObject);
    procedure ButtonAddRowClick(Sender: TObject);
    procedure ButtonSaveParamClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ButtonCellClearClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  FormGetCode: TFormGetCode;

implementation


uses uLott3D;


{$R *.dfm}


procedure TFormGetCode.ButtonGetCodeClick(Sender: TObject);
type
   CodeNode=record
       Code1:integer;
       Code2:integer;
       Code3:integer;
   end;
var
  iRow:integer;
  flag,flag1,flag2,flag3:boolean;
  i,j,k,t :integer;
  loop1,loop2,loop3:integer;
  rect:TRect;
  CodeZH6List:array[0..1000] of CodeNode;
  CodeZH6Max:integer;
  CodeZH6Temp:CodeNode;
  PreDispNList:array[0..1000] of integer;
  label NextLoop;
begin
  CodeZH6Max:=0;
  for i:=0 to 1000 do
      begin
          CodeZH6List[i].Code1:=-1;
          CodeZH6List[i].Code2:=-1;
          CodeZH6List[i].Code3:=-1;
      end;

  if RadioButtonRefresh.Checked=true then
  begin
      ZcPersistGridGetCode.Clear;  //清表
      ZcPersistGridGetCode.RowCount:=1;

      ZcPersistGrid3D6.Clear;  //清表
      ZcPersistGrid3D6.RowCount:=1;
  end;

  iRow:=ZcPersistGridGetCode.RowCount;
  for loop1:=0 to 9 do
     for loop2:=0 to 9 do
        for loop3:=0 to 9 do
        begin

             //奇偶
             if CheckBoxSelectOneTwo.Checked=true then
             begin
                flag:=false;
                i:=Form3D.GetOddEvenCount(loop1,loop2,loop3);

                if (CheckBoxOneTwo0.Checked=true) and (i=0) then flag:=true;
                if (CheckBoxOneTwo1.Checked=true) and (i=1) then flag:=true;
                if (CheckBoxOneTwo2.Checked=true) and (i=2) then flag:=true;
                if (CheckBoxOneTwo3.Checked=true) and (i=3) then flag:=true;

                if flag=false then goto NextLoop;
             end;

             //大小
             if CheckBoxSelectBig.Checked=true then
             begin
                flag:=false;
                i:=Form3D.GetBigSmallCount(loop1,loop2,loop3);

                if (CheckBoxBig0.Checked=true) and (i=0) then flag:=true;
                if (CheckBoxBig1.Checked=true) and (i=1) then flag:=true;
                if (CheckBoxBig2.Checked=true) and (i=2) then flag:=true;
                if (CheckBoxBig3.Checked=true) and (i=3) then flag:=true;

                if flag=false then goto NextLoop;
             end;

             //号码个数
             if CheckBoxSelectNumCount.Checked=true then
             begin

                 flag:=false;
                 i:=Form3D.GetCodeCount(loop1,loop2,loop3);

                 if (CheckBoxNumCount1.Checked=true) and (i=1) then flag:=true;
                 if (CheckBoxNumCount2.Checked=true) and (i=2) then flag:=true;
                 if (CheckBoxNumCount3.Checked=true) and (i=3) then flag:=true;

                 if flag=false then goto NextLoop;
             end;

             //形状
             if CheckBoxSelectType.Checked=true then
             begin
                flag:=false;
                if (loop1<loop2) and (loop2<loop3) and (CheckBoxType1.Checked=true) then flag:=true;
                if (loop1>loop2) and (loop2>loop3) and (CheckBoxType2.Checked=true) then flag:=true;
                if (loop1>loop2) and (loop2<loop3) and (CheckBoxType3.Checked=true) then flag:=true;
                if (loop1<loop2) and (loop2>loop3) and (CheckBoxType4.Checked=true) then flag:=true;
                if (loop1=loop2) and (loop2<loop3) and (CheckBoxType5.Checked=true) then flag:=true;
                if (loop1=loop2) and (loop2>loop3) and (CheckBoxType6.Checked=true) then flag:=true;
                if (loop1>loop2) and (loop2=loop3) and (CheckBoxType7.Checked=true) then flag:=true;
                if (loop1<loop2) and (loop2=loop3) and (CheckBoxType8.Checked=true) then flag:=true;
                if (loop1=loop2) and (loop2=loop3) and (CheckBoxType9.Checked=true) then flag:=true;
                if flag=false then goto NextLoop;
             end;


             //相连
             if CheckBoxSelectLink.Checked=true then
             begin
                 flag:=false;
                 i:=Form3D.GetLinkCodeCount(loop1,loop2,loop3);

                 if (CheckBoxLink0.Checked=true) and (i=0) then flag:=true;
                 if (CheckBoxLink1.Checked=true) and (i=1) then flag:=true;
                 if (CheckBoxLink2.Checked=true) and (i=2) then flag:=true;

                 if flag=false then goto NextLoop;
             end;

             //开宝