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?
o Delphi conta com a função ChangeFileExt, basta declarar SysUtils ou System.SysUtils na seção uses.
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!
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
