Valor en letras, en mayuscula

[alcides]

hola a todos,

resulta que utilizo un componente para convertir un valor en letras
solo que el valor sale en minuscula, como logro que salga en mayuscula.

utilizo el Aloy Soft [tres]

si por fa me pueden dar una mano

Gracias mil,

Alcides
Rep.Dom.

[jhonny]

Una forma seria que a la función que devuelva el valor en letras anteponerle la función UpperCase...

[alcides]

Gracias mil jhonny por tu orientación,
esto es lo que hago en el on print del campo donde sale el valor en letras.

letras1.Numero := qry_Imprimevalor_giros_dolares.Value;
pplabel8.Caption := letras1.AsString;


gracias mil


Alcides
Rep. Dom.

[jhonny]

No entendí, ¿lo que me acabas de contar quiere decir que ya te funciona bien o quieres decir que aun no, o que te ayude a implementar el UpperCase?
Disculpa pero es que me he confundido.

[[Delphius]]

Yo recomendaria que emplee AnsiUpperCase, ya que con UpperCase hay caracteres que no son convertidos. Empleado AnsiUpperCase se garantiza de que los caracteres serán devueltos en mayúscula.

Saludos,

[alcides]

Gracias jonny,
lo que quiero es que me ayude a implementar el UpperCase

hay esta como asigno el valor y como obtengo el valor en letras, lo que quiero es colocar el UpperCase.



Gracias mil

Alcides
Rep.Dom.

[jhonny]

Bueno, teniendo en cuenta la recomendación de Delphius la cosa quedaria asi:

Código Delphi [-]
letras1.Numero := qry_Imprimevalor_giros_dolares.Value;
pplabel8.Caption := AnsiUpperCase(letras1.AsString);

Espero te sirva.

[[Delphius]]

Este es un ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := AnsiUpperCase('texto en minusculas');
end;

No tienes que implementar la función.. sólo debes invocarla.

Para tu caso debes hacer:

Código Delphi [-]
pplabel8.Caption := AnsiUpperCase(letras1.AsString);

Saludos,

EDITO: corregí el error que amablemente me hizo saber jhonny

[alcides]

Gracias Jhonny por todo
Gracias Delphius por tus recomendaciónes


Gracias mil, todo perfecto


Alcides
Rep.Dom.

[jhonny]

Que bueno que todo vaya bien, pero me quedo una duda...
Tengo claro que es AnsiUpperCase pero... ¿que se supone que hace AnisUpperCase? lo pregunto por:

Empezado por Delphius

Código Delphi [-]
pplabel8.Caption := AnisUpperCase(letras1.AsString);

[[Delphius]]

Empezado por jhonny

Tengo claro que es AnsiUpperCase pero... ¿que se supone que hace AnisUpperCase?

Es un error de tipeo... no me di cuenta. Estaba escribiendo al vuelo.. y la verdad que por escribir sin comprobar en Delphi se me paso

Ya corrigo mi error. Gracias por hacermelo saber...

Saludos,

[fidel]

Hola jhonny:

Satisfago tu curiosidad.

Más o menos
UpperCase funciona para caracteres ASCII hasta 133 (z minúscula)
AnsiUpperCase para todos, creo.

UpperCase('Bisoñé') ... resultado ... BISOñé

AnsiUpperCase('Bisoñé') ... resultado ... BISOÑÉ

Para el español que tenemos acentos y ñ es importante.

Un saludo.

[jhonny]

Empezado por fidel

Satisfago tu curiosidad.

Muchas gracias fidel

Empezado por Delphius

Es un error de tipeo... no me di cuenta. Estaba escribiendo al vuelo.. y la verdad que por escribir sin comprobar en Delphi se me paso

Ya corrigo mi error. Gracias por hacermelo saber...

Hombre no hay problema

[[egostar]]

Empezado por jhonny

Muchas gracias fidel

Pues si se agradece la aportación.

Vamos que después del cambio de Delphius cualquiera se desconcierta.....

Saludos

[jhonny]

Empezado por egostar

Vamos que después del cambio de Delphius cualquiera se desconcierta.....

jejeje, es verdad, si lo vemos por primera vez a cualquiera le pasa

[[Delphius]]

Empezado por egostar

Vamos que después del cambio de Delphius cualquiera se desconcierta.....

¿Y ahora... que hice?

Saludos,