📄 u_form_blue.pas.bak
字号:
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;
grid2_3.Refresh;
grid2_4.Refresh;
grid2_5.Refresh;
end;///tabindex=2
/////////////////////////////////////////////////////////////
end;
procedure TForm_Blue.ComboBox7Click(Sender: TObject);
var
i,j:integer;
CurrentPath:string;
iChuShu:integer;
_Div:Array[1..100] of integer;
begin
if combobox7.text='除3走势' then
begin
iChuShu:=3;
chart2.LeftAxis.Minimum:=0;
chart2.LeftAxis.Maximum:=2;
chart2.RightAxis.Minimum:=0;
chart2.RightAxis.Maximum:=2;
end;///if
if combobox7.text='除4走势' then
begin
iChuShu:=4;
chart2.LeftAxis.Minimum:=0;
chart2.LeftAxis.Maximum:=3;
chart2.RightAxis.Minimum:=0;
chart2.RightAxis.Maximum:=3;
end;///if
if combobox7.text='除5走势' then
begin
iChuShu:=5;
chart2.LeftAxis.Minimum:=0;
chart2.LeftAxis.Maximum:=4;
chart2.RightAxis.Minimum:=0;
chart2.RightAxis.Maximum:=4;
end;///if
if combobox7.text='除6走势' then
begin
iChuShu:=6;
chart2.LeftAxis.Minimum:=0;
chart2.LeftAxis.Maximum:=5;
chart2.RightAxis.Minimum:=0;
chart2.RightAxis.Maximum:=5;
end;///if
/////除3余数走势图//////////////
chart2.Series[0].Clear;
for i:=1 to 28 do
begin
_Div[i]:=CP_Data[i,1] mod iChuShu;
LineSeries1.Add(_Div[i],'',clTeeColor);
end;///for
end;
procedure TForm_Blue.ComboBox1Click(Sender: TObject);
var
i,j:integer;
_Tmp_CP:integer;
begin
///////在对应的格格中显示蓝球号码///////////////////////
_Tmp_CP:=strToInt(combobox1.text);
for i:=1 to 4 do
begin
grid2_1.Cells[i+1,grid2_1.RowCount-2].ForeText:='';
grid2_2.Cells[i+1,grid2_2.RowCount-2].ForeText:='';
grid2_3.Cells[i+1,grid2_3.RowCount-2].ForeText:='';
grid2_4.Cells[i+1,grid2_4.RowCount-2].ForeText:='';
grid2_5.Cells[i+1,grid2_5.RowCount-2].ForeText:='';
end;
/////在表格Grid2_1中显示////////////////
//for i:=1 to 28 do
//begin
for j:=1 to 16 do
begin
if strToInt(combobox1.text)=j then
begin
if (strToInt(combobox1.text) mod 4)=1 then
begin
grid2_1.Cells[2,Grid2_1.RowCount-2].ForeText:=inttostr(j);
end;
if (strToInt(combobox1.text) mod 4)=2 then
begin
grid2_1.Cells[3,Grid2_1.RowCount-2].ForeText:=inttostr(j);
end;
if (strToInt(combobox1.text) mod 4)=3 then
begin
grid2_1.Cells[4,Grid2_1.RowCount-2].ForeText:=inttostr(j);
end;
if (strToInt(combobox1.text) mod 4)=0 then
begin
grid2_1.Cells[5,Grid2_1.RowCount-2].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 strToInt(combobox1.text)=j then
begin
if (strToInt(combobox1.text)=1) or (strToInt(combobox1.text)=8) or (strToInt(combobox1.text)=9) or (strToInt(combobox1.text)=16) then
begin
grid2_2.Cells[2,Grid2_2.RowCount-2].ForeText:=inttostr(j);
end;
if (strToInt(combobox1.text)=2) or (strToInt(combobox1.text)=7) or (strToInt(combobox1.text)=10) or (strToInt(combobox1.text)=15) then
begin
grid2_2.Cells[3,Grid2_2.RowCount-2].ForeText:=inttostr(j);
end;
if ( _Tmp_CP=3) or ( _Tmp_CP=6) or ( _Tmp_CP=11) or ( _Tmp_CP=14) then
begin
grid2_2.Cells[4,Grid2_2.RowCount-2].ForeText:=inttostr(j);
end;
if ( _Tmp_CP=4) or ( _Tmp_CP=5) or ( _Tmp_CP=12) or ( _Tmp_CP=13) then
begin
grid2_2.Cells[5,Grid2_2.RowCount-2].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 _Tmp_CP=j then
begin
if ( _Tmp_CP=1) or ( _Tmp_CP=2) or ( _Tmp_CP=3) or ( _Tmp_CP=4) then
begin
grid2_3.Cells[2,Grid2_3.RowCount-2].ForeText:=inttostr(j);
end;
if ( _Tmp_CP=5) or ( _Tmp_CP=6) or ( _Tmp_CP=7) or ( _Tmp_CP=8) then
begin
grid2_3.Cells[3,Grid2_3.RowCount-2].ForeText:=inttostr(j);
end;
if ( _Tmp_CP=9) or ( _Tmp_CP=10) or ( _Tmp_CP=11) or ( _Tmp_CP=12) then
begin
grid2_3.Cells[4,Grid2_3.RowCount-2].ForeText:=inttostr(j);
end;
if ( _Tmp_CP=13) or ( _Tmp_CP=14) or ( _Tmp_CP=15) or ( _Tmp_CP=16) then
begin
grid2_3.Cells[5,Grid2_3.RowCount-2].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 _Tmp_CP=j then
begin
if ( _Tmp_CP=1) or ( _Tmp_CP=12) or ( _Tmp_CP=11) or ( _Tmp_CP=10) then
begin
grid2_4.Cells[2,Grid2_4.RowCount-2].ForeText:=inttostr(j);
end;
if ( _Tmp_CP=2) or ( _Tmp_CP=13) or ( _Tmp_CP=16) or ( _Tmp_CP=9) then
begin
grid2_4.Cells[3,Grid2_4.RowCount-2].ForeText:=inttostr(j);
end;
if (_Tmp_CP=3) or (_Tmp_CP=14) or (_Tmp_CP=15) or (_Tmp_CP=8) then
begin
grid2_4.Cells[4,Grid2_4.RowCount-2].ForeText:=inttostr(j);
end;
if (_Tmp_CP=4) or (_Tmp_CP=5) or (_Tmp_CP=6) or (_Tmp_CP=7) then
begin
grid2_4.Cells[5,Grid2_4.RowCount-2].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 _Tmp_CP=j then
begin
if (_Tmp_CP=1) or (_Tmp_CP=2) or (_Tmp_CP=3) or (_Tmp_CP=4) then
begin
grid2_5.Cells[2,Grid2_5.RowCount-2].ForeText:=inttostr(j);
end;
if (_Tmp_CP=12) or (_Tmp_CP=13) or (_Tmp_CP=14) or (_Tmp_CP=5) then
begin
grid2_5.Cells[3,Grid2_5.RowCount-2].ForeText:=inttostr(j);
end;
if (_Tmp_CP=11) or (_Tmp_CP=16) or (_Tmp_CP=15) or (_Tmp_CP=6) then
begin
grid2_5.Cells[4,Grid2_5.RowCount-2].ForeText:=inttostr(j);
end;
if (_Tmp_CP=10) or (_Tmp_CP=9) or (_Tmp_CP=8) or (_Tmp_CP=7) then
begin
grid2_5.Cells[5,Grid2_5.RowCount-2].ForeText:=inttostr(j);
end;
end;//if CP
end;//j
//end;//fori
////////////////////////////////////////////////////////
grid2_1.Refresh;
grid2_2.Refresh;
grid2_3.Refresh;
grid2_4.Refresh;
grid2_5.Refresh;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -