unit1.~pas

生成序列号,自动随机生成所需要的序列好

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Math, StrUtils, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    r1: TRadioButton;
    r2: TRadioButton;
    r3: TRadioButton;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Edit1: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
  function GetRandomPassword(ALen: Integer): string;
  //function RandomFrom(const AValues: array of string): string; overload;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
Randomize;
for i:=1 to 4 do
Randomize;
//Edit1.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']);
//s:=s+ randomfrom(['a','b','c','d','e','f','g','h','j','k','l','m','n','p','q','r','s','t','u','v','w','x','y','z']);
//s:=s+randomfrom(['1'.'2'.'3'.'4']);

//edit1.Text:=s;
end;


function TForm1.GetRandomPassword(ALen: Integer): string;
var
str: string;
begin
Randomize;
if r1.Checked then
  str := 'abcdefghjklmnpqrstuvwxyz'
else if  r2.checked then str:='ABCDEFGHJKLMNPQRSTUVWXYZ'
else if r3.Checked then str:='abcdefghjklmnpqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ'
else  str := 'abcdefghjklmnpqrstuvwxyz';
Result := '';
repeat
    Result := Result + str[Random(Length(str)) + 1];
until (Length(Result) = ALen);

end;




procedure TForm1.Button2Click(Sender: TObject);
var t,st:string;
    i,j,k:integer;
    a,b,c:integer;
begin
  if edit1.Text='' then exit;
  if edit3.text='' then exit;

  if edit2.text='' then exit;
  a:=strtoint(edit1.text);
  b:=strtoint(edit3.Text);
  memo1.Lines.Clear;
  for  i:=0 to strtoint(edit2.Text) do begin
  t:=GetRandomPassword(a);
  Randomize;
  j:=random(b);
  st:=inttostr(j);
  c:=length(edit3.Text)-length(st)-1;

  if length(st)<length(edit3.Text)-1 then begin
     for k:=0 to c-1 do
      st:='0'+st;
  end
  else st:=inttostr(j);
  memo1.Lines.Add(t+st);
  //if length(t+st)<>6 then showmessage('abc');
  //i:=i+1;
  end;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin

memo1.Lines.SaveToFile(ExtractFileDir(Application.Exename)+'\senumber.txt');
end;

end.