2015年6月18日
在Delphi中实现HexToStr函数和StrToHex函数
摘要： function TransChar(AChar: Char): Integer;begin if AChar in ['0'..'9'] then Result := Ord(AChar) - Ord('0') else Result := 10 + Ord(AChar) - Ord('A... 阅读全文
posted @ 2015-06-18 23:05 tc310 阅读(1992) 评论(0) 推荐(1) 编辑