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