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

可执行文件存放于：http://bbs.51testing.com/thread-71954-1-1.html
T aY9PVu0
YK?*CD"q[0unit Unit1;51Testing软件测试网|i'\su JL

m p!L:fU%^1K0interface

uses51Testing软件测试网m+@S{.XI\x.Qb ~x0z
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
/["v8G"ixe Di0  Dialogs, StdCtrls, ComCtrls, ExtCtrls, shellapi;

type51Testing软件测试网4i8x+mk;c%B
  TForm1 = class(TForm)51Testing软件测试网u `r d!r d&i
    pnl1: TPanel;
L+dc
RM`I$@$y0    edt1: TEdit;
HP3k;S*f:^0    btn2: TButton;
[#jt#O1N rST/`0    btn1: TButton;
\mtH%O0    pnl2: TPanel;51Testing软件测试网8c;z&@PG%[j Do
    mmo2: TMemo;51Testing软件测试网 D.E,b2X]Z3zO7m
    lbl1: TLabel;
\0w Z.{w0    lbl2: TLabel;51Testing软件测试网0\`G6A!t_~V0~
    edt2: TEdit;
;[IB3eZ#m0    ud1: TUpDown;
J;xV%a'uc0    lbl3: TLabel;51Testing软件测试网;b/z(Q,\ Ego5a0Z)S3[
    edt3: TEdit;51Testing软件测试网8?W6J,F]z'l
    ud2: TUpDown;51Testing软件测试网GS2i+~4xW#M
    btn3: TButton;51Testing软件测试网^B$Ao#w
Tkk
    btn4: TButton;

Xg,O q#W0    CheckBox1: TCheckBox;
B'l;C.n
D)^ w0    Memo1: TMemo;
hM/v
|iG~:Kf0    Button1: TButton;
SXWQL5h0    Button2: TButton;51Testing软件测试网K@{&Lu
    StatusBar1: TStatusBar;
,D&V^cel-{e0    procedure btn1Click(Sender: TObject);
k:i]#o0_!_&v0    procedure btn2Click(Sender: TObject);
tgR c0GoP0    procedure btn3Click(Sender: TObject);
b:|j!N3@ x7n6Hi0    procedure btn4Click(Sender: TObject);51Testing软件测试网+wVum`Jt
    procedure Button1Click(Sender: TObject);51Testing软件测试网V7T9FZ {w yn
    procedure Button2Click(Sender: TObject);
4TBe5[D+{0  private
z2M,M^5h+w0    { Private declarations }51Testing软件测试网9R$aCrX9o
  public
QdQ3D#w)I;\g0    { Public declarations }51Testing软件测试网%{jOe6m wb
  end;51Testing软件测试网3W_;RZ6TGJ

var51Testing软件测试网 a*N&f+Kw6UW-y
  Form1: TForm1;

implementation

{$R *.dfm}51Testing软件测试网/M?%I E-F gF_

procedure TForm1.btn1Click(Sender: TObject);51Testing软件测试网A pdB8iKWA0u
begin51Testing软件测试网PP jb$mN
  edt1.Clear;
GEbLd,D| c0  edt2.Clear;
;yM1?0~5r!N.A'C,p1s0  edt3.Clear;51Testing软件测试网!oa+[$l K5B7g:q
end;51Testing软件测试网\*d4~y:a ZA*e-P

procedure TForm1.btn2Click(Sender: TObject);51Testing软件测试网;J)aw])B I0g| b*A
var
+on/x?r"U0^+EQ0  i: integer;51Testing软件测试网EC3hd3U,RN3g
begin
%rq$M$p/L&CW0  try
HLomvl;_8p0    strtoint(edt2.Text);
n2f&oF)b5\0  except
W
[5MoL'w-Zw ^0    application.MessageBox('请输入整数！', '系统信息', 32);
ynZE5r4L rQ0    edt2.SetFocus;
2_4iar3j0    exit;
k2IV6yx7bz0  end;51Testing软件测试网2Z!f~L#Qp

;q9e;f&`d0  try51Testing软件测试网8Y'{a8Cy wT{
    strtoint(edt3.Text);51Testing软件测试网pM.`x4i7Dp0_'RN
  except51Testing软件测试网+Cb;v8aaY C
    application.MessageBox('请输入整数！', '系统信息', 32);
2c-pj(P~0    edt3.SetFocus;
"^ w-Q
c;G+I0    exit;51Testing软件测试网 rle1r*~R+l
  end;51Testing软件测试网9\o"GEGR-yR*Wi
  mmo2.Lines.Clear;51Testing软件测试网-G'sN0|b0b$eo
  if trim(edt2.Text) = '' then edt2.Text := '0';51Testing软件测试网 F#{#M~vj1ogD;\x
  if not CheckBox1.Checked then begin51Testing软件测试网.@ae'y3a3q
  for i := strtoint(edt2.Text) to strtoint(edt2.Text) + strtoint(edt3.Text) - 1 do
.l{-qfa)sB0    mmo2.Lines.Add(edt1.Text + inttostr(i));51Testing软件测试网~ kqd
]
  end else begin51Testing软件测试网R9?1DNU]2u| |.}
  for i := strtoint(edt2.Text) to strtoint(edt2.Text) + strtoint(edt3.Text) - 1 do
5N"p Fh'V^tZ1s.e!i0    mmo2.Lines.Add(edt1.Text);
?G/NB5~(P0  end;51Testing软件测试网~ g7x$P*d:B6\c
  if mmo2.Lines.Count>0 then btn4.Enabled := true else btn4.Enabled := false;51Testing软件测试网r3e'x-l%lh"g
end;

procedure TForm1.btn3Click(Sender: TObject);
Ne c9M+I/?X0begin51Testing软件测试网.aX4tV.C1A
  halt;51Testing软件测试网RY8A;QQ!kK3C k[Z
end;51Testing软件测试网4mN3rb#dEd%S

procedure TForm1.btn4Click(Sender: TObject);
Thx'X%Ul+Z0begin51Testing软件测试网Ds smM5@0h6ZU
  mmo2.Lines.SaveToFile('c:\test.txt');
#IL&@u*e}0Fp'g0  ShellExecute(Handle, 'open', 'c:\test.txt', nil, nil, SW_SHOWNORMAL);51Testing软件测试网K$gJ q/X7i+_$S
end;

procedure TForm1.Button1Click(Sender: TObject);51Testing软件测试网*J6|6FO-~ x&U)U \
var51Testing软件测试网C$l%x%FQ:v#?By"\2]e2l;y
  i :integer;51Testing软件测试网 \4O0H#z~~6n
begin51Testing软件测试网J/L4d!^x)SW.`q
  mmo2.Lines.Clear;
n:q4j*Y'j.wL,t-M*W0  for i:=0 to memo1.Lines.Count-1 do51Testing软件测试网7Mk!R'W\5?#~oc A
    begin
6^r)R'\7@w0zE3g0      mmo2.Lines.Add(edt1.Text+memo1.Lines.Strings[i]);51Testing软件测试网6IxP1u?7W8K|
    end;
w&KOs _0end;51Testing软件测试网vG*?p7HtQ3c|

procedure TForm1.Button2Click(Sender: TObject);
*]N_Pp8~4mN0var
-YJ2g"|g8h0  i :integer;51Testing软件测试网JQ-U iF4B'j
begin51Testing软件测试网8yWf(J~:?A,VT1B
  mmo2.Lines.Clear;
gqU+R,s2y~:z&_0  for i:=0 to memo1.Lines.Count-1 do51Testing软件测试网 YQ3w+G/YeL)x
    begin51Testing软件测试网3KEYf%rK\\
      mmo2.Lines.Add(memo1.Lines.Strings[i]+edt1.Text);51Testing软件测试网yN p$w0C)m e2?MPK%}
    end;
aOl]
e-K;~M0end;51Testing软件测试网$gfj2j(|

@"`]{`~k R7D0end.