É 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]
nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 20 de junho de 2005 13:05
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Arquivos sem a sua Extensao!!!
Prioridade: Alta
Não, companheiro. Não errei. Ela retorna o nome do arquivo seguido da
extensão, conforme é ilustrado até mesmo na descrição da função
contida no
help do Delphi. Se quiser extracir apenas o nome do arquivo, sem a
extensão,
sugiro que vc tb use a função ExtractFileExt() e crie a sua própria
função
que retorna o nome do arquivo, assim:
function ExtractOnlyFileName(AFileName: string): string;
var
lFileName, lExt: String;
begin
lExt := ExtractFileExt(AFileName);
lFileName := ExtractFileName(AFileName);
Result := StringReplace(lFileName, lExt, '', [rfReplaceAll]); { acho
que
nem precisa de rfReplaceAll }
end;
O peixe foi pescado!
[]s
>From: Rodrigo Izquierdo da Motta <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: Re: [delphi-br] Arquivos sem a sua Extensao!!!
>Date: Mon, 20 Jun 2005 12:39:37 -0300
>
>Ola Rubens!!!
>
>Olha, essa funcao me retorna o nome do arquivo, e foi exatamente ela que
>usei para pegar o nome do arquivo, mas ela vem com a extensao tb!!! Sera
>que
>vc naum errou o nome da Funcao???
>
>Um Abraco!!!
>
>/*=======================================================*/
>
>On 6/20/05, Rubem Nascimento da Rocha <[EMAIL PROTECTED]> wrote:
> >
> > Procure no help do Delphi informações sobre a função
ExtractFileName().
> > []s
> >
> > >From: Rodrigo Izquierdo da Motta <[EMAIL PROTECTED]>
> > >Reply-To: delphi-br@yahoogrupos.com.br
> > >To: delphi-br@yahoogrupos.com.br
> > >Subject: [delphi-br] Arquivos sem a sua Extensao!!!
> > >Date: Mon, 20 Jun 2005 12:20:45 -0300
> > >
> > >Ola Lista!!!
> > >
> > >Alguem sabe como faco para depois de pegar o nome de um arquivo, com
> > >FileName dos Dialogs, por exemplo, TESTE.txt, entaum apos isso eu
> > gostaria
> > >de pegar apenas TESTE, sem a sua extencao.
> > >
> > >Obrigado a Todos!!!
> > >
> > >--
> > >/*=======================*
> > >* Rodrigo Izquierdo da Motta *
> > >*=======================*/
> > >
> > >
> > >[As partes desta mensagem que não continham texto foram removidas]
> > >
> >
> > _________________________________________________________________
> > MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > Para ver as mensagens antigas, acesse:
> > http://br.groups.yahoo.com/group/delphi-br/messages
> >
> > Para falar com o moderador, envie um e-mail para:
> > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> >
> > Links do Yahoo! Grupos
> >
> >
> >
> >
> >
> >
> >
> >
> >
>
>
>--
>/*=======================*
>* Rodrigo Izquierdo da Motta *
>*=======================*/
>
>
>[As partes desta mensagem que não continham texto foram removidas]
>
_________________________________________________________________
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
__________ NOD32 1.1145 (20050618) Information __________
This message was checked by NOD32 antivirus system.
http://www.nod32.com
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
