1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

function getnum(h1: String): Integer; 
var 
d1: Integer; 
begin 
  h1:=lowercase(h1); 
  if h1 = '0' Then d1 := 0; 
  if h1 = '1' Then d1 := 1; 
  if h1 = '2' Then d1 := 2; 
  if h1 = '3' Then d1 := 3; 
  if h1 = '4' Then d1 := 4; 
  if h1 = '5' Then d1 := 5; 
  if h1 = '6' Then d1 := 6; 
  if h1 = '7' Then d1 := 7; 
  if h1 = '8' Then d1 := 8; 
  if h1 = '9' Then d1 := 9; 
  if h1 = 'a' Then d1 := 10; 
  if h1 = 'b' Then d1 := 11; 
  if h1 = 'c' Then d1 := 12; 
  if h1 = 'd' Then d1 := 13; 
  if h1 = 'e' Then d1 := 14; 
  if h1 = 'f' Then d1 := 15; 
  result:=d1; 
end; 
 
function hextoint(hex: String): Integer; 
var 
  d: Integer; 
  i: Integer; 
  dez: Integer; 
  h: String; 
  dd: Integer; 
begin 
  i:=1; 
  dez:=0; 
  while i < length(hex)+1 do 
  begin 
    h:=copy(hex, i, 1); 
    d:=getnum(h); 
    dd:=d*round(power(16, length(hex)-i)); 
    dez:=dez+dd; 
    inc(i); 
  end; 
  result:=dez; 
end; 
 
 
procedure TForm1.Button1Click(Sender: TObject); 
 
begin 
  showmessage(inttostr(hextoint('40f'))); 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function bin2int(bin : string) : integer;
  var a,z : integer;
begin
  result := 0;
  a := 1;
  for z := length(bin) downto 1 do  begin
    if bin[z]='1' then inc(result,a);
    a := a * 2;
  end;
end;