Ver la Versión Completa : Componente Atexto en letra mayuscula?
negrokau
14-10-2011, 23:13:54
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.
//
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;
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
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.