DELPHI Как скопировать файл .txt и переименовать

Question

Мне нужно скопировать файл .txt и переименовать его.

Я только новичок, Пожалуйста, помогите мне.

любые предложения и комментарии сделают. Заранее спасибо. :)

Answer 1

Есть множество способов, чтобы скопировать файл из одного места в другое, но наиболее прямолинейный метод с использованием CopyFile метод, расположенный в Winapi.Windows блоке ...

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

Answer 2

Cross -платформенное решение

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 копирует файл из Старое_имя в NEWNAME и выводит сообщение о том, успех или отказ.

Способ 2 делает то же самое, но будет ловить исключения, поднятые на всякий случай, если все превратится в заварной крем.

Я надеюсь, что это поможет вам. Будучи новичком, он может быть очень подавляющим, и иногда вам просто нужна помощь.