CARAL!!! FUNCIONA A LA PERFECCION!!!
Código Delphi
[-]implementation
{$R *.dfm}
uses BD;
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;
procedure TFCLIENTE.QRExpr3Print(sender: TObject; var Value: string);
var
n:string;
begin
n:= Deletrear(StrToFloat(Value));
QRExpr3.Caption:=uppercase(''+n+'');
value:=QRExpr3.Caption;
end;
end.
Asi tal cual funciona de maravillas, lo unico a tener en cuenta, es que en Chile no trabajamos con decimales, por lo cual hay que cambiar la propiedad "MASK" de los QRExpr a ###,###,##0, pero OJO!!! al que quieras convertir en Letras deve quedar asi ########0 o si no nos genera error, al menos de esta manera me funciona a mi, gracias nuevamente Caral por las sugerencias, un abrazo!!!