admin 管理员组文章数量: 1087139
2024年3月12日发(作者：选项卡代码怎么写)
Delphi7 制作批量重命名工具
软件作用：选择某个文件夹里面的某类型或全部文件，按照顺序重新命名为 前缀+001,002等编号+后缀 的文件
软件界面如下：
代码如下：unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Mask, Buttons, FileCtrl;
type
TForm1 = class(TForm)
DriveComboBox1: TDriveComboBox;
DirectoryListBox1: TDirectoryListBox;
StaticText1: TStaticText;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
FileListBox1: TFileListBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure 1Click(Sender: TObject);
var ru: string ;
begin
ru:=inputbox('请输入文件后缀名(不需要输入 ． )','输入文件类型 ','') ;
me := '*.' + ru ;
:= ru ;
n :=ru ;
h ;
end;
procedure 2Click(Sender: TObject);
var i: integer; var n: integer; var j: integer; var tt: String; var dd: String ;var nb: String;
begin
if messagedlg('列表中所有文件会按照顺序进行重命名，是否确认',mtconfirmation,[mbyes,mbno],0)=mryes
then begin
n:= ;
for i:=1 to n do
begin
j:=i-1 ;
if i<10 then
nb:='00'+inttostr(i)
else if i<100 then
nb:= '0'+inttostr(i)
else
nb:= inttostr(i);
dd := ory + '' + [j];
tt := ory + '' + + nb + '.' + ;
reNamefile(dd,tt) ;
end;
end;
h ;
showmessage('已经完成,请重新选择目录查看结果')
end;
end.文案 编辑词条
B 添加义项 ?
文案，原指放书的桌子，后来指在桌子上写字的人。现在指的是公司或企业中从事文字工作的职位，就是以文字来
表现已经制定的创意策略。文案它不同于设计师用画面或其他手段的表现手法，它是一个与广告创意先后相继的表
现的过程、发展的过程、深化的过程， 多存在于广告公司，企业宣传，新闻策划等。
版权声明：本文标题：delphi制作文件批量重命名工具 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1710186052a561428.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论