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

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