输入参数为标准两位
function StrToHex(sHex:string):Integer;
variRet: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;