u_form_blue.pas

双色球分析软件

                       end;


                    end; ////mod=1

                 if CP_Data[m-1,j]=i then
                 begin
                    if (CP_Data[m-1,j] mod 3)=1 then
                    begin
                        grid1_3.Canvas.textRect(grid1_3.CellRect(strToInt(formatFloat('##0',1+(i-1)/3)),m),strtoint(formatFloat('##0',MX_Value)),strtoint(formatFloat('##0',my_Value)),inttostr(i));
                    end;
                    if (CP_Data[m-1,j] mod 3)=2 then
                    begin
                        grid1_3.Canvas.textRect(grid1_3.CellRect(strToInt(formatFloat('##0',(7+(i-2)/3))),m),strtoint(formatFloat('##0',MX1_Value)),strtoint(formatFloat('##0',my_Value)),inttostr(i));
                    end;
                    if (CP_Data[m-1,j] mod 3)=0 then
                    begin
                        grid1_3.Canvas.textRect(grid1_3.CellRect(strToInt(formatFloat('##0',(12+(i-3)/3))),m),strtoint(formatFloat('##0',MX2_Value)),strtoint(formatFloat('##0',my_Value)),inttostr(i));
                    end;
                    //grid1.Canvas.TextRect()
                 end;
                 
             end; ///for i
          end;///j
       end;//for m
       /////////////////////////////////////////////
end;

procedure TForm_Blue.TabCtrlChange(Sender: TObject);
var
    i,j:integer;
    _Div:Array[1..100] of integer;
    _LastNum:Array[1..100] of integer;
    _LastNUmSub:Array[1..100] of integer;
    _Sub:Array[1..100] of integer;

begin
////////TabCtrl.Tabindex=1是蓝球曲线走势图'///////////////
      if TabCtrl.TabIndex=1 then
      begin
          /////蓝球曲线图//////////
          chart1.Series[0].Clear;
          for i:=1 to 28 do
          begin
              Series1.Add(CP_Data[i,1],CP_SID[i],clTeeColor);
          end;///
          //////计算号码差//////////////////
          chart3.Series[0].Clear;
          _Sub[1]:=1;
          for i:=1 to 27 do
          begin
              _Sub[i+1]:=CP_Data[i+1,1]-CP_Data[i,1];
              //Series3.Add(_sub[i],'',clTeeColor);
          end;////
          for i:=1 to 28 do
          begin
              //_Sub[i+1]:=CP_Data[i+1,1]-CP_Data[i,1];
              Series3.Add(_sub[i],'',clTeeColor);
          end;////
          /////除3余数走势图//////////////
          chart2.Series[0].Clear;
          for i:=1 to 28 do
          begin
              _Div[i]:=CP_Data[i,1] mod 3;
               LineSeries1.Add(_Div[i],'',clTeeColor);
          end;///for
          /////蓝球威势图/////////////////////
          chart4.Series[0].Clear;
          for i:=1 to 28 do
          begin
              if CP_Data[i,1]<10 then
              begin
                 _LastNum[i]:=CP_Data[i,1];
              end
              else
                 _LastNum[i]:=strToInt(trim(copy(inttostr(CP_Data[i,1]),2,1)));
              LineSeries3.Add(_LastNum[i],'',clteecolor);
          end;////
          /////////计算尾差///////////////////////
          for i:=1 to 27 do
          begin
              _LastNumSub[i+1]:=_LastNum[i+1]-_LastNum[i];
          end;/////
          chart5.Series[0].Clear;
          _LastNumSub[1]:=2;
          for i:=1 to 28 do
          begin
              series4.Add(_LastNumSub[i],'',clteecolor);
          end;//
          //////////////////////////////////////
      end;////
/////////TabCtrl.TabIndex=2是蓝球的螺旋走势图///////////////////
      if TabCtrl.TabIndex=2 then
      begin
          for i:=1 to 16 do
          begin
              combobox1.Items.Add(inttostr(i)); 
          end;///
          ///////设置第一个表格Grid2_1//////////////
          grid2_1.SetMerges(rect(1,1,1,4));
          grid2_1.ColWidths[1]:=55;
          grid2_1.Cells[1,1].ForeText:='[1]号图';

          grid2_2.SetMerges(rect(1,1,1,4));
          grid2_2.ColWidths[1]:=55;
          grid2_2.Cells[1,1].ForeText:='[2]号图';

          grid2_3.SetMerges(rect(1,1,1,4));
          grid2_3.ColWidths[1]:=55;
          grid2_3.Cells[1,1].ForeText:='[3]号图';

          grid2_4.SetMerges(rect(1,1,1,4));
          grid2_4.ColWidths[1]:=55;
          grid2_4.Cells[1,1].ForeText:='[4]号图';

          grid2_5.SetMerges(rect(1,1,1,4));
          grid2_5.ColWidths[1]:=55;
          grid2_5.Cells[1,1].ForeText:='[5]号图';
          ///////添加颜色////////////////////////
          grid2_1.RowCount:=grid1_1.RowCount+3;
          grid2_2.RowCount:=grid1_1.RowCount+3;
          grid2_3.RowCount:=grid1_1.RowCount+3;
          grid2_4.RowCount:=grid1_1.RowCount+3;
          grid2_5.RowCount:=grid1_1.RowCount+3;
          ///////添加数字///////////////////////
          for i:=1 to 4 do
          begin
              for j:=1 to 4 do
              begin
                  grid2_1.Cells[j+1,i].ForeText:=Grid2_1_1[i,j];
                  grid2_1.Cells[j+1,i].Color:=rgb(192,255,192);
              end;///j
          end;///i
          for i:=1 to 4 do
          begin
              for j:=1 to 4 do
              begin
                  grid2_2.Cells[j+1,i].ForeText:=Grid2_1_2[i,j];
                  grid2_2.Cells[j+1,i].Color:=rgb(192,255,192);
              end;///j
          end;///i
          for i:=1 to 4 do
          begin
              for j:=1 to 4 do
              begin
                  grid2_3.Cells[j+1,i].ForeText:=Grid2_1_3[i,j];
                  grid2_3.Cells[j+1,i].Color:=rgb(192,255,192);
              end;///j
          end;///i
          for i:=1 to 4 do
          begin
              for j:=1 to 4 do
              begin
                  grid2_4.Cells[j+1,i].ForeText:=Grid2_1_4[i,j];
                  grid2_4.Cells[j+1,i].Color:=rgb(192,255,192);
              end;///j
          end;///i
          for i:=1 to 4 do
          begin
              for j:=1 to 4 do
              begin
                  grid2_5.Cells[j+1,i].ForeText:=Grid2_1_5[i,j];
                  grid2_5.Cells[j+1,i].Color:=rgb(192,255,192);
              end;///j
          end;///i
          //显示数据期号./////////////////////////////////////////////
          for i:=1 to 28 do
          begin
              grid2_1.Cells[1,i+4].ForeText:=CP_SID[i];
          end;//
          for i:=1 to 28 do
          begin
              grid2_2.Cells[1,i+4].ForeText:=CP_SID[i];
          end;//
          for i:=1 to 28 do
          begin
              grid2_3.Cells[1,i+4].ForeText:=CP_SID[i];
          end;//
          for i:=1 to 28 do
          begin
              grid2_4.Cells[1,i+4].ForeText:=CP_SID[i];
          end;//
          for i:=1 to 28 do
          begin
              grid2_5.Cells[1,i+4].ForeText:=CP_SID[i];
          end;//
          ///////在对应的格格中显示蓝球号码///////////////////////
          /////在表格Grid2_1中显示////////////////
          for i:=1 to 28 do
          begin
              for j:=1 to 16 do
              begin
                  if CP_Data[i,1]=j then
                  begin
                    if (CP_Data[i,1] mod 4)=1 then
                    begin
                       grid2_1.Cells[2,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1] mod 4)=2 then
                    begin
                       grid2_1.Cells[3,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1] mod 4)=3 then
                    begin
                       grid2_1.Cells[4,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1] mod 4)=0 then
                    begin
                       grid2_1.Cells[5,i+4].ForeText:=inttostr(j);
                    end;

                  end;//if CP
              end;//j
          end;//fori
          ///////在表格Grid2_2中显示//////////////////////////////
          for i:=1 to 28 do
          begin
              for j:=1 to 16 do
              begin
                  if CP_Data[i,1]=j then
                  begin
                    if (CP_Data[i,1]=1) or (CP_Data[i,1]=8) or (CP_Data[i,1]=9) or (CP_Data[i,1]=16) then
                    begin
                       grid2_2.Cells[2,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=2) or (CP_Data[i,1]=7) or (CP_Data[i,1]=10) or (CP_Data[i,1]=15) then
                    begin
                       grid2_2.Cells[3,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=3) or (CP_Data[i,1]=6) or (CP_Data[i,1]=11) or (CP_Data[i,1]=14) then
                    begin
                       grid2_2.Cells[4,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=4) or (CP_Data[i,1]=5) or (CP_Data[i,1]=12) or (CP_Data[i,1]=13) then
                    begin
                       grid2_2.Cells[5,i+4].ForeText:=inttostr(j);
                    end;

                  end;//if CP
              end;//j
          end;//fori
          ///////在表格Grid2_3中显示//////////////////////////////
          for i:=1 to 28 do
          begin
              for j:=1 to 16 do
              begin
                  if CP_Data[i,1]=j then
                  begin
                    if (CP_Data[i,1]=1) or (CP_Data[i,1]=2) or (CP_Data[i,1]=3) or (CP_Data[i,1]=4) then
                    begin
                       grid2_3.Cells[2,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=5) or (CP_Data[i,1]=6) or (CP_Data[i,1]=7) or (CP_Data[i,1]=8) then
                    begin
                       grid2_3.Cells[3,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=9) or (CP_Data[i,1]=10) or (CP_Data[i,1]=11) or (CP_Data[i,1]=12) then
                    begin
                       grid2_3.Cells[4,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=13) or (CP_Data[i,1]=14) or (CP_Data[i,1]=15) or (CP_Data[i,1]=16) then
                    begin
                       grid2_3.Cells[5,i+4].ForeText:=inttostr(j);
                    end;

                  end;//if CP
              end;//j
          end;//fori
          ///////在表格Grid2_4中显示//////////////////////////////
          for i:=1 to 28 do
          begin
              for j:=1 to 16 do
              begin
                  if CP_Data[i,1]=j then
                  begin
                    if (CP_Data[i,1]=1) or (CP_Data[i,1]=12) or (CP_Data[i,1]=11) or (CP_Data[i,1]=10) then
                    begin
                       grid2_4.Cells[2,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=2) or (CP_Data[i,1]=13) or (CP_Data[i,1]=16) or (CP_Data[i,1]=9) then
                    begin
                       grid2_4.Cells[3,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=3) or (CP_Data[i,1]=14) or (CP_Data[i,1]=15) or (CP_Data[i,1]=8) then
                    begin
                       grid2_4.Cells[4,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=4) or (CP_Data[i,1]=5) or (CP_Data[i,1]=6) or (CP_Data[i,1]=7) then
                    begin
                       grid2_4.Cells[5,i+4].ForeText:=inttostr(j);
                    end;

                  end;//if CP
              end;//j
          end;//fori
          ///////在表格Grid2_5中显示//////////////////////////////
          for i:=1 to 28 do
          begin
              for j:=1 to 16 do
              begin
                  if CP_Data[i,1]=j then
                  begin
                    if (CP_Data[i,1]=1) or (CP_Data[i,1]=2) or (CP_Data[i,1]=3) or (CP_Data[i,1]=4) then
                    begin
                       grid2_5.Cells[2,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=12) or (CP_Data[i,1]=13) or (CP_Data[i,1]=14) or (CP_Data[i,1]=5) then
                    begin
                       grid2_5.Cells[3,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=11) or (CP_Data[i,1]=16) or (CP_Data[i,1]=15) or (CP_Data[i,1]=6) then
                    begin
                       grid2_5.Cells[4,i+4].ForeText:=inttostr(j);
                    end;
                    if (CP_Data[i,1]=10) or (CP_Data[i,1]=9) or (CP_Data[i,1]=8) or (CP_Data[i,1]=7) then
                    begin
                       grid2_5.Cells[5,i+4].ForeText:=inttostr(j);
                    end;

                  end;//if CP
              end;//j
          end;//fori
          ////////////////////////////////////////////////////////
          grid2_1.Refresh;
          grid2_2.Refresh;