Números a letras

[metroyd]

Probé esto:

Código Delphi [-]
form17.qrlabel22.caption:= form17.QRExpr2.Value.strResult

Y el resultado son caracteres extraños. O sea, el problema viene desde como asignar el resultado de un QRExpr a una variable o label.

[metroyd]

Gracias a los que me ayudaron.
El problema lo resolvi mediante el evento OnPrint del QRExpression:

Código Delphi [-]
procedure TForm17.QRExpr2Print(sender: TObject; var Value: String);

// AQUI METI LA FUNCION QUE ME DIJISTE
   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;
 // FIN DE LA FUNCION

 var
    n:string;
begin
   form17.qrlabel37.Caption:=FOrmatfloat('#,##0.00',strtofloat(value));
   n:= Deletrear(StrToFloat(Value));
   form17.QRLabel39.Caption:=uppercase('( '+n+' PESOS 00/100 M.N.)');
   value:=form17.QRLabel37.Caption;

end;

[benjineo]

a mi me sale el mismo error, pero solo con cantidades como de 3450.00 pero con las pequenias si funciona bien(250.00)!!!....ya le movi al onprint y nada!..alguein sugiere algo?

[[Caral]]

Hola
Si el dato es obtenido de un campo se necesita ponerlo en el evento before del componente table o query que se use.
NO el evento del reporte, el del query o table, segun sea el caso ya que necesita obtener el dato primero.
Saludos

[benjineo]

de hecho me guie en el procedimiento de @metroyd, el dato lo estoy sacando de un QRExpr, lo paso a un QRLabel y despues ese QRlabel lo convierto, y me funciona bien para cantidades pequenias, pero ya a cantidades como de 3540 me arroja el error!

[[Caral]]

Hola
Podrias usar un qrlabel.Caption:=Formatfloat('#,##0.00',strtofloat(value));
Asi le das formato ya que el ATexto funciona con numeros y sacas el dato de un caption.
Saludos

[benjineo]

Se supone que asi lo hagio, Este es mi codigo:


procedure TVenta.QRExpr2Print(sender: TObject; var Value: String);

function Deletrear(numero: real) : string; var
letras: TLetras;
begin
letras := TLetras.Create(nil);
try
letras.Numero := Trunc(numero);
Result := Format('%s CON %d/100 .-', [Letras.AsString, Trunc(100*Frac(Numero))]); *no se si el error me de por esta seccion?!
finally
letras.Free;
end;
end;

var
n:string;
begin
Ventas.qrlabel38.Caption:=FOrmatfloat('#,##0.00',strtofloat(value));
n:= Deletrear(StrToFloat(Value));
form17.QRLabel39.Caption:=uppercase('( '+n+')');
value:=Ventas.QRLabel38.Caption;

end;