HexToInt

Næh det gør der ikke men du kan blande dem som du vil bare du husker dollartegnet foran teksten:

i : integer;

i := $8F;
showmessage(inttostr(i));

så vises 143

her er lige en lille funktion:

function hextoint(s : string) : integer;
begin
  result := strtoint('$'+s);
end;

Function hex2int(hex:string):integer;
const hexstr='0123456789ABCDEF';
var i,j:integer;
begin
  if odd(length(hex)) then hex:='0'+hex;
  hex:=uppercase(hex);
  result:=0;
  j:=0;
  for i:=1 to length(hex) do begin
    if i=1 then j:=1;
    if i=2 then j:=16;
    if i>=3 then j:=j*16;
    result:=result+(pos(hex[length(hex)-i+1], hexstr)-1)*j;
  end;
end;

Smart nok..

men jeg nåde lige at lave en funktion selv :-(