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

(uX&qz+V yEQ-Q`0可执行文件存放于：http://bbs.51testing.com/thread-71954-1-1.html
@!`&{]p051Testing软件测试网o|g6p0o ~Cb_
unit Unit1;

interface51Testing软件测试网7UO f%caw@A

uses51Testing软件测试网"~b
f w uG
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,51Testing软件测试网3^ktY.w"G QM6W4T
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, shellapi;

Q QMa"[W!m7[0type
$]R]'i8N4w0  TForm1 = class(TForm)51Testing软件测试网OE+}j9LN9l1M
    pnl1: TPanel;51Testing软件测试网Q4BI2a[%j!Nm
    edt1: TEdit;51Testing软件测试网1e`W wV `7?3f
    btn2: TButton;51Testing软件测试网f,rn1y8A M
    btn1: TButton;
Dm,skS E0    pnl2: TPanel;
|h#F)l`N0    mmo2: TMemo;
4YE3T(g*C0t0a0    lbl1: TLabel;
D`u f\x7N]3i ND0    lbl2: TLabel;
;Ni6~/]R@Dz1p0    edt2: TEdit;51Testing软件测试网CE-xL(d*].m
    ud1: TUpDown;51Testing软件测试网k~3l)|V
JG`+z
    lbl3: TLabel;
%HB"A:lO#e/GaW0    edt3: TEdit;
8b*Y'e%u*S0    ud2: TUpDown;
.qee7Je2l0`PdM0    btn3: TButton;
9J2tbvBx*O0    btn4: TButton;
M-g*r ^,\0    CheckBox1: TCheckBox;51Testing软件测试网S$igc5q"gy-v
    Memo1: TMemo;
(YO[ K+I T-v7Xy0    Button1: TButton;
n[ o(A6U!SC:M0    Button2: TButton;51Testing软件测试网V0`(kv8s
    StatusBar1: TStatusBar;
ial
Ez\s y/T+H1kr0    procedure btn1Click(Sender: TObject);
J6K&i:bk%E.u0    procedure btn2Click(Sender: TObject);
B z]3CvwOVe0    procedure btn3Click(Sender: TObject);51Testing软件测试网1qO,Pw!QB|'x
    procedure btn4Click(Sender: TObject);
\-x&i~`0ne0zG0    procedure Button1Click(Sender: TObject);51Testing软件测试网p*V4U~"c:c6e
    procedure Button2Click(Sender: TObject);
4Lh5@F _0  private51Testing软件测试网ne:^5LCI L
    { Private declarations }51Testing软件测试网;g`i |#k
  public51Testing软件测试网]2V)R&rC%Tb3?:\
    { Public declarations }
NbWxU#a_0  end;51Testing软件测试网EV)~iuhy

var
ez6Wb;@gvR0  Form1: TForm1;51Testing软件测试网;d ]k@1L8AeV

implementation

{$R *.dfm}51Testing软件测试网^*dm)z0?UXm[

*eB^;M;{p0procedure TForm1.btn1Click(Sender: TObject);
y8CV$IWOa0begin
HC9E+D!rYvqO0  edt1.Clear;51Testing软件测试网4\Z2a_
`
  edt2.Clear;51Testing软件测试网2|CI e"s a4|~
  edt3.Clear;
(v@*UB!S)sB0end;

Lk8Oqu0procedure TForm1.btn2Click(Sender: TObject);51Testing软件测试网tDuAmc~K
var
Z8g@T3U5d3{0  i: integer;51Testing软件测试网~:Nn"FmCKML"n'{
begin51Testing软件测试网 J?~1H`qDV
  try51Testing软件测试网-R&K`m4M)I3bgI i
    strtoint(edt2.Text);51Testing软件测试网HIci&l)Ib$S Y`^
  except51Testing软件测试网)Rzh&b/Gc df9]
    application.MessageBox('请输入整数！', '系统信息', 32);51Testing软件测试网!szg.hc~,h
    edt2.SetFocus;51Testing软件测试网I1M ly1?|A
    exit;51Testing软件测试网q6b#q+pIhF9Bt
  end;

  try51Testing软件测试网:wy5G*e&k?
    strtoint(edt3.Text);
jKC6W}.c0  except51Testing软件测试网2n0_~.~(t2rOD4H
    application.MessageBox('请输入整数！', '系统信息', 32);51Testing软件测试网,VIi+gZ5Mf
    edt3.SetFocus;51Testing软件测试网bNp9l/tv/txW!n
    exit;
&z:B n8a3u
RvqL^0  end;51Testing软件测试网&B!|9YE_i/T
  mmo2.Lines.Clear;
SW8b/q/g/i0  if trim(edt2.Text) = '' then edt2.Text := '0';
rd8h#UN
q;u0  if not CheckBox1.Checked then begin51Testing软件测试网gFd&K,};x
  for i := strtoint(edt2.Text) to strtoint(edt2.Text) + strtoint(edt3.Text) - 1 do51Testing软件测试网u4i4L;t p5M
    mmo2.Lines.Add(edt1.Text + inttostr(i));
$[X7F6Yr%uX5i%f:q0  end else begin51Testing软件测试网(St,z7f_TuN
  for i := strtoint(edt2.Text) to strtoint(edt2.Text) + strtoint(edt3.Text) - 1 do
'}XEe1]y+l0    mmo2.Lines.Add(edt1.Text);51Testing软件测试网3lw7CU+Bf%y
  end;51Testing软件测试网a{0v u Et
  if mmo2.Lines.Count>0 then btn4.Enabled := true else btn4.Enabled := false;51Testing软件测试网 meN CZ,s&n
end;

5}a[eL?0Y0procedure TForm1.btn3Click(Sender: TObject);51Testing软件测试网Iz0Y!rlH'~
begin
V9e8Y~-VZ9|}0  halt;51Testing软件测试网8E2R&GgQ*qQDKSy
end;

6gXXx6?n)H0procedure TForm1.btn4Click(Sender: TObject);51Testing软件测试网4v
]Iy
A|e,g
begin51Testing软件测试网 fU `t Rf `
  mmo2.Lines.SaveToFile('c:\test.txt');51Testing软件测试网7e S!{2_ Jme
  ShellExecute(Handle, 'open', 'c:\test.txt', nil, nil, SW_SHOWNORMAL);51Testing软件测试网Sg0d |R]2[#Dj
end;51Testing软件测试网9n*k N$m8v+HN%Oq

procedure TForm1.Button1Click(Sender: TObject);51Testing软件测试网6k5k2~.^exs!Wi+CM
var
h g3w"@+cx2YI0  i :integer;51Testing软件测试网gT}|,f)l.x
begin
.q*{`
f0],C.\@ p?0  mmo2.Lines.Clear;
|1Ns%cC(uM.s0  for i:=0 to memo1.Lines.Count-1 do51Testing软件测试网0l(Vc9Crpl+|f'i
    begin
{t5q/A h0      mmo2.Lines.Add(edt1.Text+memo1.Lines.Strings[i]);
:CB _'_@Rh0    end;51Testing软件测试网1[}i/Ph)b2E
end;

l4]m#LRs6Z/_o0procedure TForm1.Button2Click(Sender: TObject);51Testing软件测试网(?]]0O"UY8[V}
var51Testing软件测试网+Rbs-rKx
  i :integer;
0N;jT0?1L-i:~0eL/G(`N0begin
.qJ+Z
p@m;vH4M0  mmo2.Lines.Clear;
.j]Zob~`{/i0  for i:=0 to memo1.Lines.Count-1 do
:XX-nV R0    begin
-y,Kr(m;lzE9F)\0      mmo2.Lines.Add(memo1.Lines.Strings[i]+edt1.Text);
2a-qkt&i;O;W8u0    end;
[k!Dj/UVN0end;

Tt&Gs3j[:?0end.