Hex til Integer

2 forslag

http://www.swissdelphicenter.ch/en/showcode.php?id=670

http://www.swissdelphicenter.ch/en/showcode.php?id=136

Tak

function IntToBaseX(num: integer; bas: integer): string;
var
    n:      integer;

    function toChar(n: integer): char;
    begin
        if n<10 then result:=chr(ord('0')+n)
        else result:=chr(ord('A')+n-10);
    end;

begin //integer to base x
    n:=num;
    result:='';
    repeat
        result:=toChar(n mod bas)+result;
        n:=n div bas
    until n=0;
end; //integer to base x


function BaseXtoInt(const num: string; bas: integer): integer;
var
    i:      integer;

    function getChar(c: char): integer;
    begin
        if c<='9' then result:=ord(c)-ord('0')
        else result:=ord(c)-ord('A')+10;
    end;

begin //base x to integer
    result:=0;
    for i:=1 to length(num) do
        result:=result*bas+getChar(num[i]);
end; //base x to integer

Eller den korte:

  n := StrToInt('$' + 'A023');