Extrair extenção dos arquivos

Delphi

26/08/2003

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:

Insert into anexos (codanexos, arquivo, extencao) values (1,meuarquivo,doc)
Este seria um arquivo do WORD que iria cadastrar.
Beleza...

Atenciosamente

Anderson Cristian da Silva
Programador - Administrador de Rede e Banco de Dados
Linux na Cabeça!!!!


Andercrist

Andercrist

Curtidas 0

Respostas

Nildo

Nildo

26/08/2003

Extensao do arquivo:

ExtractFileExt(´c:\meudocumento.doc´) // resulta ´.doc´

Sem o (ponto)

Copy(ExtractFileExt(´c:\meudocumento.doc´),2,length(ExtractFileExt(´c:\meudocumento.doc´)) // resulta ´doc´


GOSTEI 0
Andercrist

Andercrist

26/08/2003

Valeu!!!!!!!!


GOSTEI 0
POSTAR