5,930
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Linux2001 2001-12-27
- 打赏
- 举报
我调用RenameFile函数,它只返回一个Boolean值,但是没有改成功
shxiaoxiao 2001-12-27
- 打赏
- 举报
使用RenameFile函数
Unit
SysUtils
Category
File Management Routines
RenameFile changes a file name identified by OldName.
function RenameFile(const OldName, NewName: string): Boolean;
Unit
SysUtils
Category
File Management Routines
RenameFile changes a file name identified by OldName.
function RenameFile(const OldName, NewName: string): Boolean;
NetFair 2001-12-27
- 打赏
- 举报
通过获取文件名的ASCII值，
alec_ma 2001-12-27
- 打赏
- 举报
rename
bjwulin 2001-12-27
- 打赏
- 举报
调用api函数。
王集鹄 2001-12-27
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
I, J: Integer;
C: Char;
vNewFileName: TFileName;
begin
FileListBox1.Directory := 'C:\'; //<路径>
FileListBox1.Mask := '*.txt';
for I := 0 to FileListBox1.Items.Count - 1 do begin
vNewFileName := UpperCase(ExtractFileName(FileListBox1.Items[I]));
for C := 'A' to 'Z' do
vNewFileName := StringReplace(vNewFileName, C, IntToStr(Ord(C) - Ord('A') + 1), [rfReplaceAll]);
vNewFileName := ChangeFileExt(vNewFileName, '.RTF');
RenameFile(FileListBox1.Directory + '\' + FileListBox1.Items[I],
FileListBox1.Directory + '\' + vNewFileName);
end;
end;
var
I, J: Integer;
C: Char;
vNewFileName: TFileName;
begin
FileListBox1.Directory := 'C:\'; //<路径>
FileListBox1.Mask := '*.txt';
for I := 0 to FileListBox1.Items.Count - 1 do begin
vNewFileName := UpperCase(ExtractFileName(FileListBox1.Items[I]));
for C := 'A' to 'Z' do
vNewFileName := StringReplace(vNewFileName, C, IntToStr(Ord(C) - Ord('A') + 1), [rfReplaceAll]);
vNewFileName := ChangeFileExt(vNewFileName, '.RTF');
RenameFile(FileListBox1.Directory + '\' + FileListBox1.Items[I],
FileListBox1.Directory + '\' + vNewFileName);
end;
end;
cszhz 2001-12-27
- 打赏
- 举报
加路径
