Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   numero a literal (https://www.clubdelphi.com/foros/showthread.php?t=74326)

luisito2011 12-06-2011 20:09:02

numero a literal
 
Hola a todoj...
bueno... lo que necesito es algo muy simple
... que se me olvido.. jiji..

como hago para que un numero.. sea mostrado en literal..

Ejem.. N:=12;
en pantalla me tendria que mostrar : Doce


..gracias... y aun ta bueno el foro

Caral 12-06-2011 20:59:52

Hola
Puedes usar el componente ATexto.
Uso:
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;

Como llamarlo:
Código Delphi [-]
var
 n: String;
begin
  n:= Deletrear(StrToFloat(Edit1.Text) );
 Edit2.Text:= (n);
end;
Saludos


La franja horaria es GMT +2. Ahora son las 21:40:37.

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