怎样把这段C++builder代码转换为Delphi

Question

BinToChar(Byte *key,int keylen,char *str,int forbegin)
{
  int  i;
  char table[16]={'0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'};
   for (i=forbegin;i<keylen;i++)
   {
    str[2*i]   = table[key[i]>>4];
    str[2*i+1] = table[key[i]&0x0F];
   }}

Answer 1

up
C++我看不懂，
你还不如说你想得到的结果，
那样还好帮你做一下。