Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Componente Atexto en letra mayuscula? (https://www.clubdelphi.com/foros/showthread.php?t=76192)

negrokau 14-10-2011 23:13:54

Componente Atexto en letra mayuscula?
 
hola... que le puedo hacer para que el componente aTexto me convierte las letras en Mayuscula... les agradeceria la ayuda... gracias por adelantado...

beginner01 14-10-2011 23:37:02

Saludos.

Para convertir texto a mayusculas puedes probar hacer algo como lo siguiente.

Código Delphi [-]
 
   // 
   ShowMessage(AnsiUpperCase(Letras1.AsString));
  // o
   ShowMessage(UpperCase(Letras1.AsString));

oscarac 14-10-2011 23:39:02

componente Atexto???

negrokau 15-10-2011 00:33:41

si, lo descargue aca... convierte numeros en texto...
ATexto se llama

Caral 15-10-2011 02:17:29

Hola
En el Uses colocar ATexto;
Código Delphi [-]
function Deletrear(numero: real) : string; var
  letras: TLetras;
begin
  letras := TLetras.Create(nil);
  try
    letras.Numero := numero;
    Result := letras.AsString;
  finally
    letras.Free;
  end;
end;

procedure TForm1.Edit1DblClick(Sender: TObject);
var
 n: String;
begin
  n:= Deletrear(StrToFloat(Edit1.Text) );
  Label1.caption:= UpperCase(n);
end;
Saludos


La franja horaria es GMT +2. Ahora son las 22:53:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi