十六进制转十进制
function HexToDec(HexChar:string):byte;
var
DecH,DecL:Byte;
begin
if Length(HexChar) > 1 then
begin
if HexChar[1] in ['0'..'9'] then DecH:= ord(HexChar[1])-48
else DecH:=ord(HexChar[1])-55;
if HexChar[2] in ['0'..'9'] then DecL:= ord(HexChar[2])-48
else DecL:=ord(HexChar[2])-55;
Result:=DecH*10+DecL;
end
else begin
if HexChar[1] in ['0'..'9'] then DecL:= ord(HexChar[1])-48
else DecL:=ord(HexChar[1])-55;
Result:=DecL;
end;
end;