📄 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;
//设置标题参数////////////////////////////////////////////////////////////////////
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]:='期数';
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;
//号码个数
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]:='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;
//连号个数
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;
//两个号码在不同位置出现排名
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].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 + -