Algu�m sabe uma fun��o que pegue a Extens�o de um arquivo?

Question

Algu�m sabe uma fun��o que pegue a Extens�o de um arquivo?Ex.: X:= fun��o(�Temp.bmp�);              X = �bmp�Obrigado...

F�rum Vini · Accepted Answer

Ol�,existe a fun��o ExtractFileExt(), que retorna a extens�o do arquivo, incluindo o ponto.[code:1:1e05e6a5dc]X:= ExtractFileExt(�C:Arquivo.bmp�);// retorna �.bmp�[/code:1:1e05e6a5dc]Existe tamb�m Ex...

Wolverine · Answer

coloque no form um OpenDialog, um Button

no OnClick do button escreva:

procedure TForm1.Button1Click(Sender: TObject);
var
caminho:string;
begin

if OpenDialog1.Execute then
caminho := ExtractFileExt(OpenDialog1.FileName);

ShowMessage(caminho);

end;

{
fun��es do Delphi:
ExtractFileExt( NomeDoArquivo ); // para saber a extensao
ExtractFileName( NomeDoArquivo ); // para saber o nome do arquivo
ExtractFilePath( NomeDoArquivo ); // para saber o caminho do arquivo
}

F�rum Algu�m sabe uma fun��o que pegue a Extens�o de um arquivo? #205640