可執行文件存放于：[url]http://bbs.51testing.com/thread-71954-1-1.html[/url]

unit Unit1; interface uses
? Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
? Dialogs, StdCtrls, ComCtrls, ExtCtrls, shellapi; type
? TForm1 = class(TForm)
??? pnl1: TPanel;
??? edt1: TEdit;
??? btn2: TButton;
??? btn1: TButton;
??? pnl2: TPanel;
??? mmo2: TMemo;
??? lbl1: TLabel;
??? lbl2: TLabel;
??? edt2: TEdit;
??? ud1: TUpDown;
??? lbl3: TLabel;
??? edt3: TEdit;
??? ud2: TUpDown;
??? btn3: TButton;
??? btn4: TButton;
??? CheckBox1: TCheckBox;
??? Memo1: TMemo;
??? Button1: TButton;
??? Button2: TButton;
??? StatusBar1: TStatusBar;
??? procedure btn1Click(Sender: TObject);
??? procedure btn2Click(Sender: TObject);
??? procedure btn3Click(Sender: TObject);
??? procedure btn4Click(Sender: TObject);
??? procedure Button1Click(Sender: TObject);
??? procedure Button2Click(Sender: TObject);
? private
??? { Private declarations }
? public
??? { Public declarations }
? end; var
? Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btn1Click(Sender: TObject);
begin
? edt1.Clear;
? edt2.Clear;
? edt3.Clear;
end; procedure TForm1.btn2Click(Sender: TObject);
var
? i: integer;
begin
? try
??? strtoint(edt2.Text);
? except
??? application.MessageBox('請輸入整數！', '系統信息', 32);
??? edt2.SetFocus;
??? exit;
? end; try
??? strtoint(edt3.Text);
? except
??? application.MessageBox('請輸入整數！', '系統信息', 32);
??? edt3.SetFocus;
??? exit;
? end;
? mmo2.Lines.Clear;
? if trim(edt2.Text) = '' then edt2.Text := '0';
? if not CheckBox1.Checked then begin
? for i := strtoint(edt2.Text) to strtoint(edt2.Text) + strtoint(edt3.Text) - 1 do
??? mmo2.Lines.Add(edt1.Text + inttostr(i));
? end else begin
? for i := strtoint(edt2.Text) to strtoint(edt2.Text) + strtoint(edt3.Text) - 1 do
??? mmo2.Lines.Add(edt1.Text);
? end;
? if mmo2.Lines.Count>0 then btn4.Enabled := true else btn4.Enabled := false;
end; procedure TForm1.btn3Click(Sender: TObject);
begin
? halt;
end; procedure TForm1.btn4Click(Sender: TObject);
begin
? mmo2.Lines.SaveToFile('c:\test.txt');
? ShellExecute(Handle, 'open', 'c:\test.txt', nil, nil, SW_SHOWNORMAL);
end; procedure TForm1.Button1Click(Sender: TObject);
var
? i :integer;
begin
? mmo2.Lines.Clear;
? for i:=0 to memo1.Lines.Count-1 do
??? begin
????? mmo2.Lines.Add(edt1.Text+memo1.Lines.Strings[i]);
??? end;
end; procedure TForm1.Button2Click(Sender: TObject);
var
? i :integer;
begin
? mmo2.Lines.Clear;
? for i:=0 to memo1.Lines.Count-1 do
??? begin
????? mmo2.Lines.Add(memo1.Lines.Strings[i]+edt1.Text);
??? end;
end; end.



本文轉自 fish_yy 51CTO博客，原文鏈接：http://blog.51cto.com/tester2test/139322，如需轉載請自行聯系原作者

總結

以上是生活随笔為你收集整理的大数据量生成工具源代码（Delphi)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。