Fazer uma cópia de um arquivo com Delphi.

Para fazer uma cópia de um arquivo com Delphi, você pode usar a unidade SysUtils e a função TFile.Copy. Aqui está um exemplo simples:

 

   
program CopyFileExample;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  sourceFileName, destFileName: string;

begin
  try
    // Nome do arquivo de origem
    sourceFileName := 'arquivo_origem.txt';

    // Nome do arquivo de destino
    destFileName := 'arquivo_destino.txt';

    // Faz a cópia do arquivo
    TFile.Copy(sourceFileName, destFileName);

    Writeln('Arquivo copiado com sucesso.');
  except
    on E: Exception do
      Writeln('Erro ao copiar o arquivo: ', E.Message);
  end;
end.

  
 
      

Neste exemplo:

Especificamos o nome do arquivo de origem (sourceFileName) e o nome do arquivo de destino (destFileName).

Usamos TFile.Copy para copiar o arquivo de origem para o arquivo de destino.

Lidamos com exceções caso ocorra algum erro durante o processo de cópia.

Este é um exemplo simples que usa a função TFile.Copy da unidade SysUtils. Certifique-se de adaptar o código conforme necessário para atender aos requisitos específicos do seu aplicativo Delphi.

17/04/2026 05:03 Delphi 444
Topo