BCB中Byte[]类型转换成AnsiSring类型数据的一个函数

现在作的一个项目中,需要把

Byte r[]数组转换成AnsiString类型的数据,因此同学徐吉斌帮我写了一个转换函数.

AnsiString Tldap::BytetoStr(Byte r[20])
{
   AnsiString result;
     char hex[16]={'0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'};
     for(int i=0;i<20;i++)
     {
       result=result+hex[(r[i]&0xf0)>>4];
       result=result+hex[(r[i]&0x0f)];
     }
     return result;
}