Nunca tive este problema, mas de qualquer forma receba o nome do arquivo
e diretório em uma variável e então converta tudo, assim:
procedure TForm1....
var
Diretorio: string;
begin
Diretorio := 'C:\Temp\Teste.jpg';
if FileExists(UpperCase(Diretorio)) then
//
end;
ou
procedure TForm1....
begin
if FileExists(UpperCase('C:\Temp\Teste.jpg')) then
//
end;
--
*Boa leitura*,
------------------------------------------------------------------------
*Adriano Santos*
Desenvolvedor Delphi desde 1998. Professor e programador PHP.
Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
www.delphitodelphi.blogspot.com <http://www.delphitodelphi.blogspot.com>
www.devmedia.com.br <http://www.devmedia.com.br>
Edu Nicácio respondeu:
>
> Se não estou enganado essa característica é do próprio Windows. Li em
> algum lugar que algumas funções do Delphi fazem distinções entre
> maiúsculas e minúsculas, mas não lembro ao certo sobre qual assunto
> estava tratando.
>
> Em todo caso, dê uma procurada no Help do Delphi por "case
> insensitive" ou "not case sensitive". Deve haver alguma coisa.
>
> Abraço.
>
> ----------------------------------------------------------
> Atenciosamente:
>
> Eduardo Cláudio Nicácio
> Analista de Sistemas Pleno
> CTIS Tecnologia S/A
> Tel.: (11) 3150-6839
> [EMAIL PROTECTED] <mailto:eduardo.nicacio%40ctis.com.br>
>
>
> ----- Original Message -----
> From: Maria das Graças .
> To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Sent: Tuesday, November 13, 2007 10:28 AM
> Subject: Re: [delphi-br] FileExists - Case Insentive
>
> if FileExists(PCHAR('ArQuiVo.dbf')) then
> ....
> else
> ShowMessage('Arquivo não encontrado!');
>
> Graça
>
> Vandinei Santos <[EMAIL PROTECTED] <mailto:vandinei%40oi.com.br>>
> escreveu:
> Bom dia, Delphianos!
>
> Estou tendo problema em testar a existência de arquivos num diretório,
> devido ao tipo de letra (maiúscula ou minúscula) que o nome dele possa
> estar escrito.
>
> Exemplo:
>
> Nome do arquivo: Arquivo.dbf
>
> if FileExists('ArQuiVo.dbf') then
> ....
> else
> ShowMessage('Arquivo não encontrado!'); // Arquivo não encontrado por
> causa do "Q" e "V" (maiúsculos)
>
> Sei que poderia usar o função "UpperCase()" ou "LowerCase()" para
> converter todo o nome para maiúscula ou minúscula, mas eu teria que
> mudar o nome de todos arquivos e não quero fazer isso porque estou
> trabalhando com arquivos gerados por outro sistema.
>
> Pergunto: existe alguma diretiva que torne a função "FileExist", "case
> insensitive"?
>
> Desde já eu agradeço a ajuda.
>
> Um abraço.
> Vandinei A. Santos
> Analista Programador em Delphi
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> ---------------------------------
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
> ------------------------------------------------------------------------
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.503 / Virus Database: 269.15.31/1129 - Release Date: 11/13/2007
> 9:22 PM
>
