摘要: {函数}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 万一 阅读(8029) 评论(2) 推荐(0) 编辑