一个文件重复生成的小工具[附源码和可执行文件]

最新推荐文章于 2024-11-09 11:25:35 发布

测试者家园

最新推荐文章于 2024-11-09 11:25:35 发布

阅读量729

点赞数

分类专栏：软件开发技巧文章标签：工具 delphi 测试 integer forms windows

本文链接：https://blog.csdn.net/tony2yy/article/details/4656392

版权

软件开发技巧专栏收录该内容

4 篇文章 0 订阅

订阅专栏

最近，因为项目的需要，我用Delphi开发了一个小的程序。程序的功能就是选择一个文件，而后可以指定复制多少个相同的文件，用这些复制的文件做并发上传文件用。下面附源码和可执行文件。

源码如下：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SUIButton, Buttons, StdCtrls, ExtCtrls, SUIForm, ComCtrls;

type
TForm1 = class(TForm)
    suiForm1: TsuiForm;
    lbl1: TLabel;
    edt1: TEdit;
    btn1: TSpeedButton;
    lbl2: TLabel;
    edt2: TEdit;
    btn2: TsuiButton;
    btn3: TsuiButton;
    dlgOpen1: TOpenDialog;
    pb1: TProgressBar;
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn2Click(Sender: TObject);
var
i:integer;
str:string;
begin

if Trim(edt1.Text)='' then begin
    Application.MessageBox('请选择要复制的源文件！', '提示', MB_OK +
      MB_ICONINFORMATION);
    btn1.Click();
    Exit;
end;

try
    if StrToInt(edt2.Text)<=0 then begin
              edt2.Clear;
        edt2.SetFocus;
        Exit;
    end;

    except
      Application.MessageBox('请输入合法数值！', '提示', MB_OK +
        MB_ICONINFORMATION);
        edt2.Clear;
        edt2.SetFocus;
      exit;
      end;
      pb1.Max:=StrToInt(edt2.Text);

if not DirectoryExists('c:/测试数据') then
ForceDirectories('c:/测试数据');

for i:=1 to StrToInt(edt2.Text) do
begin
    try
    str:='c:/测试数据/'+Copy(ExtractFileName(edt1.Text),1,Length(ExtractFileName(edt1.Text))-4)+inttostr(i)+Copy(ExtractFileName(edt1.Text),Length(ExtractFileName(edt1.Text))-4+1,4);
    CopyFile(PChar(edt1.text),PChar(str),False);
    pb1.Position:=i;
    except
      end;
    end;
Application.MessageBox('文件生成完毕,数据存放于"c:/测试数据"目录！', '提示', MB_OK +
        MB_ICONINFORMATION);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
dlgOpen1.Execute;
edt1.Text:=dlgOpen1.FileName;
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
Application.Terminate;
end;

end.

可执行文件：文件批量复制小程序