Question

我需要复制 .txt 文件并重命名。

我只是初学者，请帮帮我。

任何建议和评论都可以。提前致谢。 :)

Answer 1

有多种方法可以将文件从一个位置复制到另一个位置，但最直接的方法是使用位于Winapi.Windows单元中的CopyFile方法...

CopyFile('C:\OriginalFile.txt', 'D:\NewFile.txt', False);

Answer 2

跨平台解决方案

uses System.IOUtils;    
TFile.Copy('file.txt','anotherfile.txt');

Answer 3

虽然您已经接受了答案，但我想稍微扩展一下。以下是Delphi 7，但在其他版本中可能类似。无论哪种方式，它都可能指向正确的方向。

两种方法，第一种是最简单的，而第二种方法则有更多的错误检查。

方法1 - 最小错误检查

Procedure TForm1.Button1Click(Sender: TObject);
Var
  OldFile, NewFile: String;
Begin
  OldFile := 'Some file'; 
  NewFile := 'Some other file';

  If FileExists(OldFile) Then
  Begin
    If CopyFile(PChar(OldFile), PChar(NewFile), true) Then
      ShowMessage('Yay, file copied file')
    Else
      ShowMessage('Doh, file already exists!');
  End;
End;

方法2 - 错误检查稍微好一些

Procedure TForm1.Button2Click(Sender: TObject);
Var
  OldFile, NewFile: String;
Begin
  OldFile := 'Some file';
  NewFile := 'Some other file';
  If FileExists(OldFile) Then
  Begin
    Try
      If CopyFile(PChar(OldFile), PChar(NewFile), true) Then
        ShowMessage('Yay, file copied file')
      Else
        ShowMessage('Doh, file already exists!');
    Except
      On E: Exception Do
        ShowMessage(E.ClassName + ' Something really screwed up: ' + E.Message);
    End;
  End;
End;

方法1将文件从Oldname复制到Newname，并显示一条指示成功或失败的消息。

方法2执行相同操作，但会捕获引发的异常，以防所有内容都变为蛋羹。

我希望能帮到你。作为一个初学者，它可能会非常压倒性，有时你只需要一个帮助。

DELPHI如何复制.txt文件并重命名

3 个答案: