2011年1月27日 星期四

Delphi Labs: DataSnap XE - Testing Servers in Data Explorer

Embarcadero| EDN Delphi Feed |23:59:41

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

万一| 万一的 Delphi 博客 |18:17:00

{函数} function BytestoHexString(ABytes: TBytes; len: Integer): AnsiString; begin SetLength(Result, len*2); BinToHex(@ABytes[0], PAnsiChar(Result), len); end; {测试} procedure TForm1.FormCreate(Sender: TObject); var bs: TBytes; rStr: Ansi...