Delphi下将字符串转换成16进制的小函数

输入参数为标准两位

function StrToHex(sHex:string):Integer;

var
  iRet:Integer;
begin
  iRet := 0;
  if (Ord(sHex[1]) >= Ord('0')) and (Ord(sHex[1]) <= Ord('9')) then
    iRet := Ord(sHex[1]) - Ord('0')
  else
    iRet := Ord(sHex[1]) - Ord('a') + 10;
  iRet := iRet * 16;


  if (Ord(sHex[2]) >= Ord('0')) and (Ord(sHex[2]) <= Ord('9')) then
    iRet := iRet + Ord(sHex[2]) - Ord('0')
  else
    iRet := iRet + Ord(sHex[2]) - Ord('a') + 10;

  Result := iRet;
end;