Convierte de Numeros a Letras mas Decimales

[ContraVeneno]

En la sección de trucos ya existe uno:

http://www.clubdelphi.com/trucos/ind...ll=0&scrollb=0

De hecho, el que se puso originalmente, tiene una que otra falla.

Por eso decidí colocar mi propuesta, pero nadie la ha comentado, la cuál es más compacta y con menos ciclos.
pero bueno, yo no soy el experto.

------edito

Arturo, ¿para que son estas unidades: Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, jpeg, Gauges, DateUtils ?

No veo la definición de pmt_Type...
Ni tampoco nada de lo que tienes como asm_*

[jhonny]

Empezado por ContraVeneno

pero bueno, yo no soy el experto.

Mmmmmhhhh, ¿Se delicó?

[Arturo_]

Las unidades incluidas son para otro tipo de trabajo lo que he hecho es extraer parte del codigo de un modulo de mis sistemas y la variable pmt_TYPE tiene su función estudialo y te daras cuenta

[Arturo_]

Otra cosa en que parte de la sección trucos puedo insertar m codigo ha compartir ó lo pongo en foros.

[ContraVeneno]

¿o sea que pmt_type y todo lo que tienes como asm_* lo tengo que declarar yo ?

[Arturo_]

Mi estimado veneno esas variables eran de una versión anterior no tienes que declararlas si deseas las eliminas, y las unidades extras de la cabecera pertenecen a otras rutinas que no se encuentas en el Modulo SPLASH.

Claro esta que esta rutina de Converción funciona a la perfección la tengo instalada en varias empresas.

[[egostar]]

Amigo ContraVeneno pmt_TYPE si está declarada como parte de una función.

Código Delphi [-]
 
function NumbersToLetters(pmt_NUMBER, pmt_TYPE: string; pmt_DEC: Integer): string; export;

Lo que no veo por ningún lado son los asm_* seguro están declarados en otra de las unidades.

Salud OS.

[Arturo_]

ya te puse los asm me los olvide disculpa ok.........