RES: [delphi-br] Arquivos sem a sua Extensao!!!

É possível também usar a função extractfilename com a função POS. Assim: ExtractFileName(Arquivo); if Pos('.',Arquivo) 0 then Copy(Arquivo,1,Pos - 1); Não testei, mas acho que é mais ou menos isso. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]

Re: RES: [delphi-br] Arquivos sem a sua Extensao!!!

Ola Eduardo!!! Que otimo, eu estava precissando dessa funcao, e naum lembrava nem por nada como usava, jah nem tinha a ver com o problema anterior, foi uma resposta a uma pergunta que eu ia acabar fazendo :) Ah sim, tem um errinho, o codigo ficaria assim: ExtractFileName(Arquivo); if