十六进制转十进制 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;
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;
s:string
begin
s:=inttohex($ff);
end;