numero a literal

[luisito2011]

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

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