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';
// ... |
// ....
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; |
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!
-
Giovani Da Cruz
-
2.953 views
- 0 comentários
- 14 de julho de 2020
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo