开发者社区> 余二五> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

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

简介:
+关注继续查看
可执行文件存放于:[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,如需转载请自行联系原作者

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
数据库设计文档生成工具类
在企业级开发中、我们经常会有编写数据库表结构文档的时间付出,如果数据库表结构更新了还得手动更新维护到文档中,很是繁琐。GitHub 上发现了一个好工具 screw(螺丝钉),在此分享下
13 0
后台数据库连接以及工具类编写
后台数据库连接以及工具类编写
16 0
工业大数据竞赛
近年来,随着大数据的火热,机器学习已从学术界的科研熔炉中慢慢走出来,开始寻求工业实践落地,此时工业大数据竞赛作为新一轮实践平台,为更多高校、科研单位的技术科研成果的场景实践提供了可能。
3811 0
+关注
文章
问答
文章排行榜
最热
最新
相关电子书
更多
15分钟打造你自己的小程序更新版
立即下载
如何做小程序性能优化
立即下载
Python 脚本速查手册
立即下载