求16进制转10进制的算法！

[yinweixian]

10进制转16进制有函数IntToHex

16进制如何转成10进制？急啊！大家帮帮忙！

[yinweixian]

我是要一个函数，输入一个16进制数，得到一个10进制数！
比如说输入ABCD，得到43981。

[windy2000]

function HexToBin(Text, Buffer: PChar; BufSize: Integer): Integer

[sxf_zero]

function htod(i:string):integer;
begin
insert('$',i,0);
Result:=StrToInt(i);
end;

[winter_6677]

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

procedure TForm1.Button1Click(Sender: TObject);
begin

edit1.Text:=inttostr(hextoint('abcd'));


end;

[xixuemao]

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr($FF));
end;

[jinjazz]

inttostr('$a')

[jinjazz]

inttostr($a)

[hangguojun]

var
hexs: string;
i: integer;

begin
hexs := 'A0';
i := StrToInt('$'+hexs);
end;