Ver Mensaje Individual
  #2  
Antiguo 18-09-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
Pones el componente en el form.
Pon esta 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;
Luego indicas de donde sacas el dato y donde lo quieres pones.
Código Delphi [-]
var
 n: String;
begin
  n:= Deletrear(StrToFloat(QRExpression1.Text) );
  QRlabel1.Text:= (n);

A ver como va la cosa.
Saludos
__________________
Siempre Novato
Responder Con Cita