?? ulott3d.~pas
字號:
//6個號碼分析是，默認6個號碼都不同
gl_Compages6CodeList.OnlgFlag:=vCodeZHOnly_6Code;
for i:=0 to cnCompages6CodeMax-1 do
begin
gl_Compages6CodeList.Compages6CodeList[i].Code1:=-1;
gl_Compages6CodeList.Compages6CodeList[i].Code2:=-1;
gl_Compages6CodeList.Compages6CodeList[i].Code3:=-1;
gl_Compages6CodeList.Compages6CodeList[i].Code4:=-1;
gl_Compages6CodeList.Compages6CodeList[i].Code5:=-1;
gl_Compages6CodeList.Compages6CodeList[i].Code6:=-1;
gl_Compages6CodeList.Compages6CodeList[i].Count:=0;
end;
//7個號碼分析是，默認7個號碼都不同
gl_Compages7CodeList.OnlgFlag:=vCodeZHOnly_7Code;
for i:=0 to cnCompages7CodeMax-1 do
begin
gl_Compages7CodeList.Compages7CodeList[i].Code1:=-1;
gl_Compages7CodeList.Compages7CodeList[i].Code2:=-1;
gl_Compages7CodeList.Compages7CodeList[i].Code3:=-1;
gl_Compages7CodeList.Compages7CodeList[i].Code4:=-1;
gl_Compages7CodeList.Compages7CodeList[i].Code5:=-1;
gl_Compages7CodeList.Compages7CodeList[i].Code6:=-1;
gl_Compages7CodeList.Compages7CodeList[i].Code7:=-1;
gl_Compages7CodeList.Compages7CodeList[i].Count:=0;
end;
//8個號碼分析是，默認8個號碼都不同
gl_Compages8CodeList.OnlgFlag:=vCodeZHOnly_8Code;
for i:=0 to cnCompages8CodeMax-1 do
begin
gl_Compages8CodeList.Compages8CodeList[i].Code1:=-1;
gl_Compages8CodeList.Compages8CodeList[i].Code2:=-1;
gl_Compages8CodeList.Compages8CodeList[i].Code3:=-1;
gl_Compages8CodeList.Compages8CodeList[i].Code4:=-1;
gl_Compages8CodeList.Compages8CodeList[i].Code5:=-1;
gl_Compages8CodeList.Compages8CodeList[i].Code6:=-1;
gl_Compages8CodeList.Compages8CodeList[i].Code7:=-1;
gl_Compages8CodeList.Compages8CodeList[i].Code8:=-1;
gl_Compages8CodeList.Compages8CodeList[i].Count:=0;
end;
//222個號碼分析
for i:=0 to cnCompages222CodeMax-1 do
begin
gl_Compages222CodeList.Compages222CodeList[i].Code1_1:=-1;
gl_Compages222CodeList.Compages222CodeList[i].Code1_2:=-1;
gl_Compages222CodeList.Compages222CodeList[i].Code2_1:=-1;
gl_Compages222CodeList.Compages222CodeList[i].Code2_2:=-1;
gl_Compages222CodeList.Compages222CodeList[i].Code3_1:=-1;
gl_Compages222CodeList.Compages222CodeList[i].Code3_2:=-1;
gl_Compages222CodeList.Compages222CodeList[i].Count:=0;
end;
//444個號碼分析
for i:=0 to cnCompages444CodeMax-1 do
begin
gl_Compages444CodeList.Compages444CodeList[i].Code1_1:=-1;
gl_Compages444CodeList.Compages444CodeList[i].Code1_2:=-1;
gl_Compages444CodeList.Compages444CodeList[i].Code1_3:=-1;
gl_Compages444CodeList.Compages444CodeList[i].Code1_4:=-1;
gl_Compages444CodeList.Compages444CodeList[i].Code2_1:=-1;
gl_Compages444CodeList.Compages444CodeList[i].Code2_2:=-1;
gl_Compages444CodeList.Compages444CodeList[i].Code2_3:=-1;
gl_Compages444CodeList.Compages444CodeList[i].Code2_4:=-1;
gl_Compages444CodeList.Compages444CodeList[i].Code3_1:=-1;
gl_Compages444CodeList.Compages444CodeList[i].Code3_2:=-1;
gl_Compages444CodeList.Compages444CodeList[i].Code3_3:=-1;
gl_Compages444CodeList.Compages444CodeList[i].Code3_4:=-1;
gl_Compages444CodeList.Compages444CodeList[i].Count:=0;
end;
//************************************************************//
//組合3分析，初始化類型表（不考慮重復號碼問題，共45個組合）
k:=0;
for i:=0 to 9 do
for j:=i+1 to 9 do
begin
gl_ZH3CodeTypeNoList.ZH3CodeTypeNoList[k].Code1:=i;
gl_ZH3CodeTypeNoList.ZH3CodeTypeNoList[k].Code2:=j;
gl_ZH3CodeTypeNoList.ZH3CodeTypeNoList[k].Count:=0;
k:=k+1;
end;
//設置標題參數(shù)////////////////////////////////////////////////////////////////////
gl_HeadLineList.CurHeadLineCount:=0;
//開獎號
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='開獎號碼';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=TColor(RGB(216,227,254));
HeadLineList[CurHeadLineCount].Width:=20;
HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='期數(shù)';
HeadLineList[CurHeadLineCount].ItemCaptionList[1]:='1位';
HeadLineList[CurHeadLineCount].ItemCaptionList[2]:='2位';
HeadLineList[CurHeadLineCount].ItemCaptionList[3]:='3位';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=4;
HeadLIneList[CurHeadLineCount].DisplayFlag:=true;
IdxCode:=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:=20;
HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='0奇';
HeadLineList[CurHeadLineCount].ItemCaptionList[1]:='1奇';
HeadLineList[CurHeadLineCount].ItemCaptionList[2]:='2奇';
HeadLineList[CurHeadLineCount].ItemCaptionList[3]:='3奇';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=4;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxOddEven',false);
IdxOddEven:=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:=20;
HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='0大';
HeadLineList[CurHeadLineCount].ItemCaptionList[1]:='1大';
HeadLineList[CurHeadLineCount].ItemCaptionList[2]:='2大';
HeadLineList[CurHeadLineCount].ItemCaptionList[3]:='3大';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=4;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxBigSmall',true);
IdxBigSmall:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//號碼個數(shù)
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='號碼個數(shù)';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=20;
HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='1個';
HeadLineList[CurHeadLineCount].ItemCaptionList[1]:='2個';
HeadLineList[CurHeadLineCount].ItemCaptionList[2]:='3個';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=3;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCodeCount',true);
IdxCodeCount:=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:=20;
HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='/';
HeadLineList[CurHeadLineCount].ItemCaptionList[1]:='\';
HeadLineList[CurHeadLineCount].ItemCaptionList[2]:='/\';
HeadLineList[CurHeadLineCount].ItemCaptionList[3]:='\/';
HeadLineList[CurHeadLineCount].ItemCaptionList[4]:='_/';
HeadLineList[CurHeadLineCount].ItemCaptionList[5]:='－\';
HeadLineList[CurHeadLineCount].ItemCaptionList[6]:='\_';
HeadLineList[CurHeadLineCount].ItemCaptionList[7]:='/－';
HeadLineList[CurHeadLineCount].ItemCaptionList[8]:='－';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=9;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxShape',true);
IdxShape:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//連號個數(shù)
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:=20;
HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='0連';
HeadLineList[CurHeadLineCount].ItemCaptionList[1]:='1連';
HeadLineList[CurHeadLineCount].ItemCaptionList[2]:='2連';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=3;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxLinkCode',true);
IdxLinkCode:=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:=20;
HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='0寶';
HeadLineList[CurHeadLineCount].ItemCaptionList[1]:='1寶';
HeadLineList[CurHeadLineCount].ItemCaptionList[2]:='2寶';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=3;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxTreasure',true);
IdxTreasure:=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]:='B 0'+IntToStr(j);
for j:=10 to 99 do HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='B '+IntToStr(j);
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=100;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxBrotherPre',true);
IdxBrotherPre:=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]:='P 0'+IntToStr(j);
for j:=10 to 99 do HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='P '+IntToStr(j);
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=100;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxBrotherPost',true);
IdxBrotherPost:=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]:='M 0'+IntToStr(j);
for j:=10 to 99 do HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='M '+IntToStr(j);
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=100;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxBrother2Head',true);
IdxBrother2Head:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//兩個號碼在不同位置出現(xiàn)排名
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='兩個號碼在不同位置出現(xiàn)排名 兩 頭 兩 個 號 碼 分 析 兩個號碼在不同位置出現(xiàn)排名 兩個號碼在不同位置出現(xiàn)排名';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnBrother2TopMax;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxBrother2Top',true);
IdxBrother2Top:=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);
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -