Como trocar a extensão de um arquivo?

E ai pessoal, tudo bem com vocês?

Hoje trago a seguinte situação:

Em uma variável string temos o seguinte caminho de arquivo

1
2
3
4
5

// ....
 
vMeuArquivo := 'C:\meuarquivo.xml';
 
// ...

No exemplo há um arquivo com extensão xml, bem agora eu preciso de outro arquivo com o mesmo nome, mas com extensão pdf, como fazer para atualizar a string de modo fácil?

Temos sorte!

o Delphi conta com a função ChangeFileExt, basta declarar SysUtils ou System.SysUtils na seção uses.

Vamos ao tradicional exemplo!

1
2
3
4
5
6
7
8
9
10
11
12

procedure Button1Click(Sender: TObject);
var
  vMeuArquivo : String;
begin
 
  vMeuArquivo := 'C:\meuarquivo.xml';
  ShowMessage(vMeuArquivo);
 
  // trocando a extensão para pdf
  vMeuArquivo := ChangeFileExt(vMeuArquivo, '.pdf');
  ShowMessage(vMeuArquivo);
end;

Se tudo ocorrer bem, o resultado da segunda mensagem será “C:\meuarquivo.pdf”.

É uma dica simples que pode acelerar a nossa produtividade.

Dúvidas ou sugestões? Deixe o seu comentário.

Um abraço e até o próximo post. Valeu!