Ver Mensaje Individual
  #5  
Antiguo 05-01-2008
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
Hola
Instala el componente como cualquier otro.
pones en el uses:
Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ATexto, StdCtrls;
Haces una funcion:
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;
Pones un boton y dos edit:
en el evento onclick del boton:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 n: String;
begin
  n:= Deletrear(StrToFloat(Edit1.Text) );
  Edit2.Text:= (n);
end;
Creo que esta claro, si no lo comentas.
Si te sirve dale las gracias a Dec, el fue el que me paso este codigo en su momento.
Saludos
Responder Con Cita