九游懒人传奇元宝十六进制字符串
//==============================================================================//字符串转换为十六进制字符串:例如‘ABCD’->‘41424344’*************************//==============================================================================function BinaryToHexStr(Str string;var i = ''; for i = Result + IntToHex(Ord(Str ),2);end;//==============================================================================//十六进制字符串转换为字符串:例如‘41424344’->‘ABCD’*************************//==============================================================================function HexStrToBinary(Str string;var i, Len Pointer;begin Len = AllocMem(Len + 1);//Len + 1是为nil结尾的标志空出一个字节 Pointer(Result) =0 to Len do Result Chr(StrToint('$' + Copy(Str, i*2-1, 2))); ReallocMem(Point, Len + 1);end;...
2238