main.pas

彩票自动生成

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tformmain = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    btn3d: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Button1: TButton;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Button2: TButton;
    procedure btn3dClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formmain: Tformmain;

implementation

{$R *.dfm}

procedure Tformmain.btn3dClick(Sender: TObject);
begin
  randomize;
  edit1.Text := inttostr(random(10));
  edit2.Text := inttostr(random(10));
  edit3.Text := inttostr(random(10));
end;

procedure Tformmain.Button1Click(Sender: TObject);
begin
  randomize;
  edit4.Text := inttostr(random(10));
  edit5.Text := inttostr(random(10));
  edit6.Text := inttostr(random(10));
  edit7.Text := inttostr(random(10));
  edit8.Text := inttostr(random(10));
  edit9.Text := inttostr(random(10));
  edit10.Text := inttostr(random(10));
end;

procedure Tformmain.Button2Click(Sender: TObject);
var
  t: array[0..5] of Integer;
  i,j,count,tm: integer;
begin
  randomize;

  t[0] := random(32);
  count := 31;
  for i := 1 to 5 do
  begin
    tm := random(count);
    count := count - 1;
    for j := 0 to i - 1 do
      begin
        if tm >= t[j] then
          tm := tm + 1;
      end;
    t[i] := tm;
  end;   
  

  for i := 0 to 5 do
  begin
    t[i] := t[i] + 1;
  end;
  
  edit11.Text := format('%.2d',[t[0]]);
  edit12.Text := format('%.2d',[t[1]]);
  edit13.Text := format('%.2d',[t[2]]);
  edit14.Text := format('%.2d',[t[3]]);
  edit15.Text := format('%.2d',[t[4]]);
  edit16.Text := format('%.2d',[t[5]]);
  edit17.Text := format('%.2d',[random(16)+1]);
//
end;

end.