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

[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.

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

Ya está actualizado en el FTP.

[BrunoBsso]

Listo, el hilo está actualizado.
En el inicio del hilo está el enlace al componente en el FTP del club, el enlace del componente en MediaFire, y cada uno tiene el demo incluído.
Usenlo y opinen.
Saludos!!!!