将16精制数转化为10精制d??问题!!谁知道更简单的？？

Question

const
BCD: array [0..15] of string =    ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',    '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
var
  i: integer;
  result: string;
begin
begin
//str:=LowerCase(edit2.Text);
//edit6.text:=inttostr(bcdtointeger(strtobcd(str)));
for i := Length(edit2.Text) downto 1 do
    Result := BCD[StrToInt('$' + edit2.Text[i])] + Result;
end;
edit6.Text:=inttostr(bcdtointeger(strtobcd(result)));
//edit6.Text:=result;
end;
我的他包错 说整型的问题，看不出来！
还有hextobcd的用法谁知道

Answer 1

自己写一个也不复杂！
function convert(s:string):integer
begin
len:=length(s);
for i:=len downto 1 do
 begin
  r:=power(16,len-i)*value();//value把字符作相应的变换，如:'1'-1;'a'-10
 end;
end;

Answer 2

function HexToDec(s:string):integer
begin
 len:=length(s);
 for i:=len downto 1 do
 begin
   r:=power(16,len-i)*value();//value把字符作相应的变换，如:'1'-1;'a'-10
 end;
end;