Extrair exten��o dos arquivos

Question

Bom pessoal eu estou precisando de mais uma for�a de voc�s...Eu necessito que quando eu puchar um arquivo qualquer eu separasse o nome e sua exten��o e deixar cadastrado separadamente tipo assim:Inser...

Wbb · Answer

Voc� pode por exemplo, pegar o nome inteiro do arquivo e em seguida extrair apenas os �ltimos tr�s cacteres atrav�s da fun��o RightStr:

Var MeuArquivo:
begin
MeuArquivo := �C:\Temp\Arquivo1.DOC�;
Edit1.Text := RightStr(MeuArquivo, 3); // Edit1.Text = DOC
end;

Para que a fun��o seja v�lida, voc� dever� incluir a biblioteca [b:d4881cd658]StrUtils [/b:d4881cd658]na lista Unit.

wbb

Adriano Santos · Answer

ExtractFileExt(�C:temparquivo.doc�);...

Rodrigo Bergmann · Answer

D� uma olhada na fun��o ExtractFileExt()Com RightStr funciona perfeitamente, mas voc� pode ter problemas caso a extens�o tenha menos que 3 caracteres, ou n�o tenha extens�o....

David · Answer

:)))...

F�rum Extrair exten��o dos arquivos #177503