Ir al contenido


Foto

Mayusculas y minusculas


  • Por favor identifícate para responder
3 respuestas en este tema

#1 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 12 marzo 2012 - 03:52

Hola a todos.
Esta es una pregunta difícil, para variar... :D
Tengo en la Tabla un campo con una dato en mayúsculas asi:
SUNNY LEMON.
Tengo una imagen con el nombre con la inicial en mayúscula asi:
Sunny Lemon

Uso la función de [cHackAll] (post #4 del ClubDelphi) para convertir el dato de la BD y funciona muy bien, lo curioso:
Si hago esto me salta error, no encuentra la foto:



delphi
  1. Edit8.Text:= Capitalize(Edit8.Text);
  2. Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Colores\'+Edit8.Text+'.JPG');



Pero si hago esto me encuentra y muestra la foto:


delphi
  1. Edit8.Text:= 'Sunny Lemon';
  2. Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Colores\'+Edit8.Text+'.JPG');



Por que ?, que estoy haciendo mal para variar... :
saludos
  • 0

#2 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 12 marzo 2012 - 04:13

Hola
Solucionado, no se porque pero si el dato lo saco directo de la tabla funciona:



delphi
  1. Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Colores\'+ADOQuery1.Fields[1].Text+'.JPG');



Si sabeis la razon me gustaria saber por que la diferencia se en la tabla esta en mayusculas y no estoy usando la funcion en este codigo ?.
Saludos
  • 0

#3 Sergio

Sergio

    Advanced Member

  • Moderadores
  • PipPipPip
  • 1.092 mensajes
  • LocationMurcia, España

Escrito 13 marzo 2012 - 02:42

¿Quizas se convierta a unicode al pasar por el edit?
  • 0

#4 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 13 marzo 2012 - 07:05

Pues fijate que el asunto era mas sencillo de lo que creias, podias hacer esto:



delphi
  1. Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Colores\'+AnsiUppercase(Edit8.Text)+'.JPG');



AnsiUpperCase

Saludos.
  • 0




IP.Board spam blocked by CleanTalk.