Pasar numeros de binario, hexadecimal, etc a decimal

Por Saiyine  el 0000-00-00 00:00:00 - Secciones:  DELPHI  - Enlace permanente: 493

function BaseNADec(num : string; n : byte) : integer;
var
i : integer;
aux : string;
begin
        // Solo hasta la 'o' = como máximo base 20... suficiente ¿no?
        aux:='0123456789ABCDEFGHIO';
        result:=0;
        for i:=1 to length(num) do result:=result*n+pos(upcase(num[i]),aux)-1;
end;

// De base 16 (hexadecimal) a base 10 (decimal)
function HexADec(num : string) : integer;
begin
        result:=BaseNADec(num,16);
end;

// De base 2 (binario) a base 10 (decimal)
function BinADec(num : string) : integer;
begin
        result:=BaseNADec(num,2);
end;

// De base 8 (octal) a base 10 (decimal)
function OctADec(num : string) : integer;
begin
        result:=BaseNADec(num,8);
end;