大数据量生成工具源代码（Delphi)

可执行文件存放于：http://bbs.51testing.com/thread-71954-1-1.html
X2c%R~.T9}W051Testing软件测试网(eU
o7EB-P
unit Unit1;51Testing软件测试网C
g$a!WJOKH2?)C!rs

interface

@A_,|8F1V9Am0uses
e5{fJJ
PK-Z;Iw]0  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
zD
^o'S0  Dialogs, StdCtrls, ComCtrls, ExtCtrls, shellapi;

*f+_pE:C;}UXg0type
MdF,p#PoS0  TForm1 = class(TForm)51Testing软件测试网` v.g5sY&t P
    pnl1: TPanel;51Testing软件测试网Wj!l j\ fm?.ME)H
    edt1: TEdit;
S#f-wsS8EV0    btn2: TButton;
q:A;f-x7aa9Q l_s0    btn1: TButton;
|*cJ4tC0v@o3i0    pnl2: TPanel;
/g5U@F0wyp0    mmo2: TMemo;
#|},i5q$b#E-d
H9R0    lbl1: TLabel;51Testing软件测试网2m ab_Z
@;E&Z'e.P
    lbl2: TLabel;51Testing软件测试网$s+h
P@&@8x.gY3rYD
    edt2: TEdit;51Testing软件测试网6j/^~hc$|N
    ud1: TUpDown;
#w?JtqQ&[5F'I0    lbl3: TLabel;51Testing软件测试网!P-@h JTH0Jf
    edt3: TEdit;
!ID5OmC1G1T_C0    ud2: TUpDown;51Testing软件测试网3t'Y\/W,Y_
    btn3: TButton;51Testing软件测试网L;rEc_4EM&g5g
    btn4: TButton;51Testing软件测试网rY.B:mrx'sCC
    CheckBox1: TCheckBox;
7q {e&xh8c0T0    Memo1: TMemo;
]FW-ZH z t0    Button1: TButton;
~$Y5^8S,Q7R+h0    Button2: TButton;51Testing软件测试网+U9Mgm@ v.GK9j
    StatusBar1: TStatusBar;51Testing软件测试网ci)CT3m`S X!AXZ
    procedure btn1Click(Sender: TObject);51Testing软件测试网~E1{UyNC-k
    procedure btn2Click(Sender: TObject);
;m'c`|9PW0    procedure btn3Click(Sender: TObject);51Testing软件测试网E_D5_S`0{o|
    procedure btn4Click(Sender: TObject);
x\(m*G%B&uzS0    procedure Button1Click(Sender: TObject);
&j N'nDD%?b-\@+X0    procedure Button2Click(Sender: TObject);
)g$\#`&n$s Vh%k/z/o0  private51Testing软件测试网Gn
b8E A-Ll
    { Private declarations }51Testing软件测试网'r5D3u!K~&yV
  public
3m%zc:r6UXv7n(sH0    { Public declarations }
#^"Pnm%u/M#RCw0  end;51Testing软件测试网$`yu
gCP

V4TBr*Z_h|0var51Testing软件测试网-_$|H p5Dcq-@
  Form1: TForm1;51Testing软件测试网9Dm}+v*f){

?kcN0{"W,qb^0implementation51Testing软件测试网j4M8rh9a.N

3p!Z;Ie5Wht yi0{$R *.dfm}51Testing软件测试网km#k#r1zREg

a Lz)Mo#Eu8ZV0procedure TForm1.btn1Click(Sender: TObject);51Testing软件测试网meb3wo3b/J
begin51Testing软件测试网g)w U"AQ
  edt1.Clear;
w0e
zs;aQ;h{(m0  edt2.Clear;
V%l)lqn;J| Se)p1f0  edt3.Clear;51Testing软件测试网%UjE5Mr&jA8Q;it
end;51Testing软件测试网 aJm tF

procedure TForm1.btn2Click(Sender: TObject);
{d%tk S0var
`7chQL0  i: integer;51Testing软件测试网L.N;e6L!t1~
begin51Testing软件测试网*|,O9C z
M[
  try
dv'yHDW0    strtoint(edt2.Text);
N5~v-y6S${,A0  except51Testing软件测试网N.mL!Mw u
    application.MessageBox('请输入整数！', '系统信息', 32);51Testing软件测试网4U9~8Z!n%|8F;q9N^8F
    edt2.SetFocus;
D3XzZYx0    exit;
@!F h.y+Z.OE)br[0  end;

  try
Iv
yAG;t'X0    strtoint(edt3.Text);51Testing软件测试网0Tn{5r)\emZ#?
  except51Testing软件测试网-q&JAB!zVt
    application.MessageBox('请输入整数！', '系统信息', 32);
(^N$O`Hq0    edt3.SetFocus;51Testing软件测试网9VZaW3Q
x
    exit;51Testing软件测试网+flK0Pjt/K
  end;51Testing软件测试网d-G7Q:v-w"C/};Ahs
  mmo2.Lines.Clear;51Testing软件测试网 E,s&}9E@
jj6R0s+vh
  if trim(edt2.Text) = '' then edt2.Text := '0';51Testing软件测试网A Qw7n` e(M
  if not CheckBox1.Checked then begin
}2H1d6d$C*l#@'qy.]0  for i := strtoint(edt2.Text) to strtoint(edt2.Text) + strtoint(edt3.Text) - 1 do51Testing软件测试网0v.^YjP-B
    mmo2.Lines.Add(edt1.Text + inttostr(i));51Testing软件测试网,Hf{~ oIp
  end else begin
o0y(r,j8?Kt0  for i := strtoint(edt2.Text) to strtoint(edt2.Text) + strtoint(edt3.Text) - 1 do
#v X%G1SgQn0    mmo2.Lines.Add(edt1.Text);
E5S2c.\h hu#m0  end;51Testing软件测试网!I S9a3W(xt,H
  if mmo2.Lines.Count>0 then btn4.Enabled := true else btn4.Enabled := false;
+z)u$d+aR L |~,{0end;

6}&NnJ&e.jMg~0procedure TForm1.btn3Click(Sender: TObject);51Testing软件测试网s#?Mjw(Rj)tQ
u}
begin
!C#x)Af Pgq!a0  halt;51Testing软件测试网Nu%^ GJ*v!oG
end;51Testing软件测试网#m&}{djh5t aH|

d\P4b-^0procedure TForm1.btn4Click(Sender: TObject);51Testing软件测试网K T]%H$|QHnkZ
begin
N$U%N]w&d)PxA0  mmo2.Lines.SaveToFile('c:\test.txt');51Testing软件测试网0S4W|)b
R+m2B eCe'Ji
  ShellExecute(Handle, 'open', 'c:\test.txt', nil, nil, SW_SHOWNORMAL);
Ep^u vfh3a0end;

procedure TForm1.Button1Click(Sender: TObject);51Testing软件测试网e[8GY$mA0D @b
var51Testing软件测试网,C4B?%BA
  i :integer;51Testing软件测试网8FE/C]5W$WX(G
mx
begin
i!A#\3X.y1WKl+i0  mmo2.Lines.Clear;
7YOy(ndMJ0  for i:=0 to memo1.Lines.Count-1 do
`#w2pn"]7syK6N4i~(c0    begin51Testing软件测试网"x"R Cb C8AeD
      mmo2.Lines.Add(edt1.Text+memo1.Lines.Strings[i]);
E:^9G IU-{(|SFDl0    end;51Testing软件测试网fEE/G/]F.B'Z2k&Q
end;

;e)a*]BF-Bo0procedure TForm1.Button2Click(Sender: TObject);
`3ky%w[0B0var51Testing软件测试网'qj-?$nZ"\#V%P8ni-U
  i :integer;51Testing软件测试网F W+o2h4d)AX6X
begin51Testing软件测试网9cH'z1w0m-|YS
  mmo2.Lines.Clear;51Testing软件测试网;B b5[4Kp~)K
  for i:=0 to memo1.Lines.Count-1 do
:~
G
r.~#TG0    begin51Testing软件测试网GokYO
      mmo2.Lines.Add(memo1.Lines.Strings[i]+edt1.Text);
,\iz e#VO0    end;51Testing软件测试网
txH m
bW
end;

end.51Testing软件测试网}ci D8O X\K9@/I