大数据量生成工具源代码（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，如需转载请自行联系原作者

大数据量生成工具源代码（Delphi)相关推荐

大数据测试数据生成工具v1.0 --百万级别一键导出TXT，JSON，MYSQL 。---HIVE专属工具
目录生成演示生成5百万条记录(4个字段): 一次最大最好在5百万以内,在多就分开生成,主键可以接上上一个总共生成了3次,一共400MB的txt 使用教程: 1:先安装python环境(有pytho ...
java大数据量导出csv文件并压缩
java大数据量导出csv文件并压缩 java使用POI大数据量导出excel一般会存在以下几个问题: 一次从数据库查询出这么大数据,查询缓慢查询数据量过大时会内存溢出解决方案:分页查询数据,比如 ...
1.3.8 excel for mysql_实时生成并下载大数据量的EXCEL文件，用PHP如何实现
有一个这样的需求,通过选择的时间段导出对应的用户访问日志到excel中, 由于用户量较大,经常会有导出50万加数据的情况.而常用的PHPexcel包需要把所有数据拿到后才能生成excel, 在面对生成 ...
Java操作大数据量Excel导入导出万能工具类（完整版）
Java操作大数据量Excel导入导出万能工具类(完整版) 转载自:https://blog.csdn.net/JavaWebRookie/article/details/80843653 更新日志: ...
mapbox矢量切片_使用Tippecanoe工具处理大数据量的矢量数据切片
Tippecanoe是Mapbox的一个开源切片工具,项目地址:https://github.com/mapbox/tippecanoe,Mapbox常规的切片方法tilelive-copy参见另一篇 ...
史上最全，100+大数据开源处理工具汇总
本文除了一些常用的大数据工具,还总结汇总了其他大数据工具,几乎是最全的大数据工具的总结. 如果你想入门大数据,可以对他们进行简单的了解. 如果你想学习自己熟悉意外的大数据工具,可以看这篇文章. 如果你 ...
大数据开源处理工具汇总
查询引擎一.Phoenix 贡献者:: Salesforce 简介:这是一个Java中间层,可以让开发者在Apache HBase上执行SQL查询.Phoenix完全使用Java编写,代码位于 Gi ...
100+大数据开源处理工具汇总
本文除了一些常用的大数据工具,还总结汇总了其他大数据工具,几乎是最全的大数据工具的总结. 如果你想入门大数据,可以对他们进行简单的了解. 如果你想学习自己熟悉意外的大数据工具,可以看这篇文章. 如果你 ...
速度收藏 | 100+大数据开源处理工具汇总
本文除了一些常用的大数据工具,还总结汇总了其他大数据工具,几乎是最全的大数据工具的总结. 如果你想入门大数据,可以对他们进行简单的了解. 如果你想学习自己熟悉意外的大数据工具,可以看这篇文章. 如果你 ...

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

大数据量生成工具源代码（Delphi)相关推荐

最新文章

热门文章