?? unit1.pas
字號:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
mmo1: TMemo;
pnl1: TPanel;
lbl1: TLabel;
edt1: TEdit;
lbl2: TLabel;
lbl3: TLabel;
edt2: TEdit;
lbl4: TLabel;
bvl1: TBevel;
lbl5: TLabel;
edt3: TEdit;
btn1: TButton;
btn2: TButton;
pnl2: TPanel;
btn3: TButton;
dlgSave1: TSaveDialog;
procedure btn3Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
function myrand():string;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function tform1.myrand():string;
var
i,t,n:Integer;
c,s:string;
begin
repeat
n:=Random(16);
until (n>=6) and (n<=16) ;
for i:=0 to n do
begin
if i=0 then t:=Random(25)+10 else t:=Random(35);
case t of
0 :c:='0';
1 :c:='1';
2 :c:='2';
3 :c:='3';
4 :c:='4';
5 :c:='5';
6 :c:='6';
7 :c:='7';
8 :c:='8';
9 :c:='9';
10:c:='a';
11:c:='b';
12:c:='c';
13:c:='d';
14:c:='e';
15:c:='f';
16:c:='g';
17:c:='h';
18:c:='i';
19:c:='j';
20:c:='k';
21:c:='l';
22:c:='m';
23:c:='n';
24:c:='o';
25:c:='p';
26:c:='q';
27:c:='r';
28:c:='s';
29:c:='t';
30:c:='u';
31:c:='v';
32:c:='w';
33:c:='x';
34:c:='y';
35:c:='z';
end;
s:=s+c;
end;
Result:=s;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.btn1Click(Sender: TObject);
var
i,n:Integer;
s,t:string;
begin
mmo1.Lines.Clear;
n:=StrToInt(edt3.Text);
for i:=1 to n do
begin
edt1.Text:=myrand();
repeat s:=myrand until s<>edt1.Text;
edt2.Text:=s;
if Length(edt1.Text)<=10 then t:=#9+#9 else t:=#9;
mmo1.Lines.Append(IntToStr(i)+#9+'賬號: '+edt1.Text+t+'密碼:'+#9+edt2.Text);
end;
mmo1.Lines.Append(#8+#9+#8+#9+#8+#9+#8+#9+#8+#9+#8+#9);
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
dlgSave1.Execute;
mmo1.Lines.SaveToFile(dlgSave1.FileName);
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -