u_constant.~pas

双色球分析软件

unit U_Constant;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
var
  PointX:Array[1..100] of integer;
  PointY:Array[1..100] of integer;
  GridFlagX:Array[1..100] of integer;
  GridFlagY:Array[1..100] of integer;
const
  Row_Number1:Array[1..5] of string=('1','2','3','4','5');
  Row_Number2:Array[1..5] of string=('11','12','13','14','15');
  Row_Number3:Array[1..5] of string=('21','22','23','24','25');
  Row_Number4:Array[1..5] of string=('31','32','33',' ',' ');
  Row_Number5:Array[1..5] of string=('6','7','8','9','10');
  Row_Number6:Array[1..5] of string=('16','17','18','19','20');
  Row_Number7:Array[1..5] of string=('26','27','28','29','30');
  ////////
  Row_number_1:Array[1..11] of string=('1','2','3','4','5',
                                       '6','7','8','9','10','11');
  Row_number_2:Array[1..11] of string=('12','13','14','15','16',
                                       '17','18','19','20','21','22');
  Row_number_3:Array[1..11] of string=('23','24','25','26','27',
                                       '28','29','30','31','32','33');
  Grid2_1_1:Array[1..4,1..4] of string=(('1','2','3','4'),('5','6','7','8'),
                                        ('9','10','11','12'),('13','14','15','16'));
  Grid2_1_2:Array[1..4,1..4] of string=(('1','2','3','4'),('8','7','6','5'),
                                        ('9','10','11','12'),('16','15','14','13'));
  Grid2_1_3:Array[1..4,1..4] of string=(('1','5','9','13'),('2','6','10','14'),
                                        ('3','7','11','15'),('4','8','12','16'));
  Grid2_1_4:Array[1..4,1..4] of string=(('1','2','3','4'),('12','13','14','5'),
                                        ('11','16','15','6'),('10','9','8','7'));
  Grid2_1_5:Array[1..4,1..4] of string=(('1','12','11','10'),('2','13','16','9'),
                                        ('3','14','15','8'),('4','5','6','7'));
  Grid1_1_1:Array[1..6,1..6] of string=(('1','2','3','4','5','6'),('7','8','9','10','11','12'),
                                        ('13','14','15','16','17','18'),('19','20','21','22','23','24'),
                                        ('25','26','27','28','29','30'),('31','32','33','','',''));
implementation

end.