摘要：
{函数}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
万一
阅读(8063)
评论(2)
推荐(0)
浙公网安备 33010602011771号