{1、十进制数与十六进制数之间的转换(单字节)}
//十进制转换成十六进制
function CnIntToHex(aInt: Integer): string;
begin
Result := IntToHex(Word(aInt), 4);
end;
//十六进制转换成十进制
function CnHexToInt(aHex: string): integer;
begin
Result := SmallInt(StrToInt('
+aHex));
end;
此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/67941.html