摘要:
//先贴几个实用函数//16 进制 转 整形,这个在消息解码的时候经常要用到Function HexToInt(sTemp : String) : Integer ;VarV, i : Integer ;BeginHexToInt := 0 ;If sTemp = '' Then Exit ;If (sTemp[1]='0') And ((sTemp[2]='x') Or (sTemp[2]='X')) ThensTemp := Copy(sTemp, 3, Length(sTemp)-2) ;If sTemp = ' 阅读全文