福彩《快乐8》简易选号程序

先上图：

编程环境：Win10 64位、Delphi XE10.4

设计思路：

一、选号：从1~80随机选20个号

    repeat
      i:=Random(80) + 1;
      s:=i.ToString.PadLeft(2, '0');
      if lst.IndexOf(s) < 0 then
        lst.Add(s);
    until lst.Count=20;

二、筛选：

1.分8个区，每区10个号，每区选1~4个号

    for I := 0 to 7 do
    begin
      j:=0;
      for k := 0 to lst.Count - 1 do
      begin
        s:=lst.Strings[k];
        if s.ToInteger in [10*i+