2011 年 1月 27 日随笔档案 - 万一

2011年1月27日

使用 BinToHex() 把 TBytes 转换为十六进制字符串 - 回复 "梧桐栖凤" 的问题

摘要： {函数}function BytestoHexString(ABytes: TBytes; len: Integer): AnsiString;begin SetLength(Result, len*2); BinToHex(@ABytes[0], PAnsiChar(Result), len);end;{测试}procedure TForm1.FormCreate(Sender: TObje... 阅读全文

posted @ 2011-01-27 18:17 万一阅读(8026) 评论(2) 推荐(0) 编辑