📄 gint.pas
字号:
Begin
If x[8] = '0' Then g := chr(174) Else g := chr(175);
End
End
End
End
Else
Begin
If x[5] = '0' Then
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(176) Else g := chr(177);
End
Else
Begin
If x[8] = '0' Then g := chr(178) Else g := chr(179);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(180) Else g := chr(181);
End
Else
Begin
If x[8] = '0' Then g := chr(200) Else g := chr(199);
End
End
End
Else
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(198) Else g := chr(197);
End
Else
Begin
If x[8] = '0' Then g := chr(196) Else g := chr(195);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(194) Else g := chr(193);
End
Else
Begin
If x[8] = '0' Then g := chr(192) Else g := chr(191);
End
End
End
End
End
End
Else
Begin
If x[3] = '0' Then
Begin
If x[4] = '0' Then
Begin
If x[5] = '0' Then
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(190) Else g := chr(189);
End
Else
Begin
If x[8] = '0' Then g := chr(188) Else g := chr(182);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(183) Else g := chr(184);
End
Else
Begin
If x[8] = '0' Then g := chr(185) Else g := chr(186);
End
End
End
Else
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(187) Else g := chr(201);
End
Else
Begin
If x[8] = '0' Then g := chr(202) Else g := chr(203);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(204) Else g := chr(205);
End
Else
Begin
If x[8] = '0' Then g := chr(206) Else g := chr(207);
End
End
End
End
Else
Begin
If x[5] = '0' Then
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(208) Else g := chr(209);
End
Else
Begin
If x[8] = '0' Then g := chr(210) Else g := chr(220);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(211) Else g := chr(219);
End
Else
Begin
If x[8] = '0' Then g := chr(212) Else g := chr(218);
End
End
End
Else
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(213) Else g := chr(217);
End
Else
Begin
If x[8] = '0' Then g := chr(214) Else g := chr(216);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(215) Else g := chr(221);
End
Else
Begin
If x[8] = '0' Then g := chr(222) Else g := chr(223);
End
End
End
End
End
Else
Begin
If x[4] = '0' Then
Begin
If x[5] = '0' Then
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(224) Else g := chr(225);
End
Else
Begin
If x[8] = '0' Then g := chr(226) Else g := chr(227);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(228) Else g := chr(229);
End
Else
Begin
If x[8] = '0' Then g := chr(230) Else g := chr(231);
End
End
End
Else
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(232) Else g := chr(233);
End
Else
Begin
If x[8] = '0' Then g := chr(234) Else g := chr(235);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(236) Else g := chr(237);
End
Else
Begin
If x[8] = '0' Then g := chr(238) Else g := chr(240);
End
End
End
End
Else
Begin
If x[5] = '0' Then
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(239) Else g := chr(241);
End
Else
Begin
If x[8] = '0' Then g := chr(242) Else g := chr(243);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(244) Else g := chr(245);
End
Else
Begin
If x[8] = '0' Then g := chr(255) Else g := chr(254);
End
End
End
Else
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(246) Else g := chr(253);
End
Else
Begin
If x[8] = '0' Then g := chr(247) Else g := chr(252);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(248) Else g := chr(251);
End
Else
Begin
If x[8] = '0' Then g := chr(249) Else g := chr(250);
End
End
End
End
End
End
End
End;
Procedure zeronetochar6(Var g : integer; x : String);
Begin
If x[1] = '0' Then
Begin
If x[2] = '0' Then
Begin
If x[3] = '0' Then
Begin
If x[4] = '0' Then
Begin
If x[5] = '0' Then
Begin
If x[6] = '0' Then g := 1 Else g := 2;
End
Else
Begin
If x[6] = '0' Then g := 3 Else g := 4;
End
End
Else
Begin
If x[5] = '0' Then
Begin
If x[6] = '0' Then g := 5 Else g := 6;
End
Else
Begin
If x[6] = '0' Then g := 7 Else g := 8;
End
End
End
Else
Begin
If x[4] = '0' Then
Begin
If x[5] = '0' Then
Begin
If x[6] = '0' Then g := 9 Else g := 10;
End
Else
Begin
If x[6] = '0' Then g := 11 Else g := 12;
End
End
Else
Begin
If x[5] = '0' Then
Begin
If x[6] = '0' Then g := 13 Else g := 14;
End
Else
Begin
If x[6] = '0' Then g := 15 Else g := 16;
End
End
End
End
Else
Begin
If x[3] = '0' Then
Begin
If x[4] = '0' Then
Begin
If x[5] = '0' Then
Begin
If x[6] = '0' Then g := 17 Else g := 18;
End
Else
Begin
If x[6] = '0' Then g := 19 Else g := 20;
End
End
Else
Begin
If x[5] = '0' Then
Begin
If x[6] = '0' Then g := 21 Else g := 22;
End
Else
Begin
If x[6] = '0' Then g := 23 Else g := 24;
End
End
End
Else
Begin
If x[4] = '0' Then
Begin
If x[5] = '0' Then
Begin
If x[6] = '0' Then g := 25 Else g := 26;
End
Else
Begin
If x[6] = '0' Then g := 27 Else g := 28;
End
End
Else
Begin
If x[5] = '0' Then
Begin
If x[6] = '0' Then g := 29 Else g := 30;
End
Else
Begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -