[Aporte] TDecBinHex - Números binarios/decimales/hexa

[BrunoBsso]

¿No subí el fuente?
No no, lo pasé de largo.
Acá subo el proyecto entero, con el fuente, el dproj, los dcu, dpk, y los *.blablabla todo (a MediaFire):
Decargar
Ahora sí, tienen todos los datos.
Fijense si les sirve ahora y sepan disculpar el descuido.
Remarco que por favor si alguno lo usa que de una opinión. Me interesa ver errores, mejoras, que tan fácil o difícil es usarlo.
Saludos!

EDIT: hecho en Delphi 2010
EDIT2: tal vez no se pueda compilar en versiones inferiores, no tengo muy en claro eso, pero el que pueda y quiera que lo compile en su versión así lo hacemos lo más portable posible.
EDIT3: (prometo que es el último) cuando haya una cantidad considerable de recompilaciones (la mía en D2010, alguna en 2009, otra en D7, etc) limpiamos los enlaces y actualizamos todo para que quede bien prolijo.

[Neftali [Germán.Estévez]]

Empezado por BrunoBsso

¿No subí el fuente?
No no, lo pasé de largo.

No hay problema, estas cosas pasan....
Ya me encargo yo de actualizar el fichewro del FTP y los links de nuevo.

AÑADO: Listo, ya está con los fuentes incluídos.

[BrunoBsso]

Empezado por Neftali

Ya me encargo yo de actualizar el fichewro del FTP y los links de nuevo.

Por ahora me parece que sería mejor recompilar todo en varias versiones y cuando hayan unas 3 ó 4 versiones diferentes, limpiar los enlaces del FTP y lo actualizamos todo.
¿Te parece?

[BrunoBsso]

Neftali, en el nombre ponele TDecBinHex_D2010_Bruno para que sepan que es hecho en D2010 y no haya confusiones.
Por favor, traten de recompilarlo en sus versiones (si difieren de la mía) y súbanlo al FTP cambiando el nombre de la versión.
Eso sí, intenten no modificarle nada al componente.

[Neftali [Germán.Estévez]]

Empezado por BrunoBsso

Neftali, en el nombre ponele TDecBinHex_D2010_Bruno para que sepan que es hecho en D2010 y no haya confusiones.

Creo que es mejor, que en lugar de subir muchas versiones, intente que un único .PAS funcione en todas (incluyendo directivas si hace falta).
Por lo que veo con este componente es muy sencillo, basta con modificar la línea que te he comentado para que funcione en D6 y D2009; Si tú lo has probado en D2010, con ese cambio cadi puedes asegurar que funcionará en todas.

Es una opinión.

[Neftali [Germán.Estévez]]

Por ahora he subido la versión que has pasado con la demo incluída.
Funciona bien (por lo que yo he probado en Delphi6 (*) y Delphi2009).

Si quieres ir subiendo versiones sucesivas, ves añadiéndolas (con un sufijo de versión, por ejemplo), y me envías un mensaje privado, con las que quieres que elimine.
Tal y como está el FTP ahora no permite eliminar a los usuarios.

Un saludo.

(*) Compila perfectamente el Delphi 6, salvo esto:

Código Delphi [-]
type
  TDecBinHex = class(TComponent)
  private
    { Private declarations }
    type
      TTipoNumero = (Decimal, Binario, Hexadecimal);
    function Potencia(Base,Exponente:Integer):LongInt;
   ...

Aunque basta con sacarlo fuera de la clase para que funcione sin problemas.

Código Delphi [-]
type
  TTipoNumero = (Decimal, Binario, Hexadecimal);
  TDecBinHex = class(TComponent)
  private
    { Private declarations }
    function Potencia(Base,Exponente:Integer):LongInt;
   ...

[BrunoBsso]

Si lo sacás fuera de la clase, al crear el objeto te da la posibilidad de crearlo como TTipoNumero.
Me explico, el sentido era que solo te de la posibilidada de que

Código Delphi [-]
//Cualquier form que lo use
var
  DBH:TDecBinHex;

Pero con el tipo TTipoNumero fuera de la clase te da la posibilidad de

Código Delphi [-]
//Cualquier form que lo use
var
  DBH:TTipoNumero

Es un problema eso
Bueno, ahora mismo lo soluciono y te aviso Neftali. Dame 5 minutos.

[Neftali [Germán.Estévez]]

Empezado por BrunoBsso

Es un problema eso
Bueno, ahora mismo lo soluciono y te aviso Neftali. Dame 5 minutos.

Veo que se nos intercalen los mensajes.

¿Y si utilizas directivas de compilacion para las diferentes versiones?

Código Delphi [-]
type
  {$IFNDEF VER210}
    TTipoNumero = (Decimal, Binario, Hexadecimal);
  {$ENDIF}
  TDecBinHex = class(TComponent)
  private
    { Private declarations }
    {$IFDEF VER210}
     type
      TTipoNumero = (Decimal, Binario, Hexadecimal);
    {$ENDIF}
    function Potencia(Base,Exponente:Integer):LongInt;
    function PotenciaNegativa(Base,Exponente:Integer):Extended;
    function EsTipoPedido(Num:String; Tipo:TTipoNumero):Boolean;
    procedure VerCreado;
    ...

NOTA: He de marchar... Ya seguiremos.

[BrunoBsso]

No hace falta directivas para verificar versiones.
Ya lo solucioné y estoy 99% seguro que así va a funcionar bien en Delphi6 hasta Delphi2010.
Enlace a MediaFire.
Cuando puedas Neftali actualizalo en el FTP.