Componente Atexto en letra mayuscula?

[negrokau]

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

[beginner01]

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]]

componente Atexto???

[negrokau]

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

[[Caral]]

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