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;