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

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

[krispis]

No encuentro el PDecBinHex.bpl por ninguna parte del archivo, trato de seguir las instrucciones para instalarlo pero no ha manera.

Muchas gracias por las librerías.

[krispis]

Muy buenas las librerias, solo les falta trabajar con números negativos

Gracias por tu trabajo.