📄 gint.pas
字号:
Begin
If x[8] = '0' Then g := chr(89) Else g := chr(88);
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(87) Else g := chr(86);
End
Else
Begin
If x[8] = '0' Then g := chr(85) Else g := chr(84);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(83) Else g := chr(82);
End
Else
Begin
If x[8] = '0' Then g := chr(81) Else g := chr(80);
End
End
End
Else
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(79) Else g := chr(78);
End
Else
Begin
If x[8] = '0' Then g := chr(77) Else g := chr(76);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(75) Else g := chr(74);
End
Else
Begin
If x[8] = '0' Then g := chr(73) Else g := chr(72);
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(71) Else g := chr(70);
End
Else
Begin
If x[8] = '0' Then g := chr(69) Else g := chr(68);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(67) Else g := chr(66);
End
Else
Begin
If x[8] = '0' Then g := chr(65) Else g := chr(64);
End
End
End
Else
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(63) Else g := chr(62);
End
Else
Begin
If x[8] = '0' Then g := chr(61) Else g := chr(95);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(94) Else g := chr(93);
End
Else
Begin
If x[8] = '0' Then g := chr(91) Else g := chr(92);
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(96) Else g := chr(97);
End
Else
Begin
If x[8] = '0' Then g := chr(98) Else g := chr(99);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(100) Else g := chr(101);
End
Else
Begin
If x[8] = '0' Then g := chr(102) Else g := chr(105);
End
End
End
Else
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(103) Else g := chr(104);
End
Else
Begin
If x[8] = '0' Then g := chr(106) Else g := chr(107);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(108) Else g := chr(109);
End
Else
Begin
If x[8] = '0' Then g := chr(110) Else g := chr(111);
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(112) Else g := chr(113);
End
Else
Begin
If x[8] = '0' Then g := chr(114) Else g := chr(115);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(116) Else g := chr(117);
End
Else
Begin
If x[8] = '0' Then g := chr(118) Else g := chr(119);
End
End
End
Else
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(120) Else g := chr(121);
End
Else
Begin
If x[8] = '0' Then g := chr(125) Else g := chr(124);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(123) Else g := chr(126);
End
Else
Begin
If x[8] = '0' Then g := chr(122) Else g := chr(127);
End
End
End
End
End
End
End
Else
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
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(128) Else g := chr(130);
End
Else
Begin
If x[8] = '0' Then g := chr(129) Else g := chr(131);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(132) Else g := chr(133);
End
Else
Begin
If x[8] = '0' Then g := chr(134) Else g := chr(135);
End
End
End
Else
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(136) Else g := chr(137);
End
Else
Begin
If x[8] = '0' Then g := chr(138) Else g := chr(139);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(140) Else g := chr(141);
End
Else
Begin
If x[8] = '0' Then g := chr(142) Else g := chr(143);
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(144) Else g := chr(145);
End
Else
Begin
If x[8] = '0' Then g := chr(150) Else g := chr(149);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(148) Else g := chr(147);
End
Else
Begin
If x[8] = '0' Then g := chr(146) Else g := chr(151);
End
End
End
Else
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(152) Else g := chr(154);
End
Else
Begin
If x[8] = '0' Then g := chr(153) Else g := chr(155);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(156) Else g := chr(157);
End
Else
Begin
If x[8] = '0' Then g := chr(158) Else g := chr(159);
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(160) Else g := chr(161);
End
Else
Begin
If x[8] = '0' Then g := chr(162) Else g := chr(170);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(165) Else g := chr(166);
End
Else
Begin
If x[8] = '0' Then g := chr(167) Else g := chr(168);
End
End
End
Else
Begin
If x[6] = '0' Then
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(169) Else g := chr(163);
End
Else
Begin
If x[8] = '0' Then g := chr(164) Else g := chr(171);
End
End
Else
Begin
If x[7] = '0' Then
Begin
If x[8] = '0' Then g := chr(172) Else g := chr(173);
End
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -