1,183
社区成员
发帖
与我相关
我的任务
分享
var
strSrc: AnsiString;
strDst: AnsiString;
begin
strSrc := '123测试字符串abc';
SetLength(strDst,Length(strSrc)*2 (*每一个字符转换成十六进制都占两个字节*));
BinToHex(PAnsiChar(strSrc),PChar(strDst),Length(strSrc));
ShowMessage(strDst);
end;