大伙帮我解读一下

Question

我这里有个c的函数
__declspec(dllexport) void WINAPI  jiami(char *buf, long buflen)
{
char charbefore,charafter;
int  shiwei[16]={12,1,13,0,2,4,6,3,7,10,8,11,15,9,5,14};
int  gewei[16] ={13,6,4,1,11,9,7,5,3,12,14,2,15,8,0,10};
int i;
int  highbyte,lowbyte;
for(i=0;i<buflen;i++)
{
charbefore=buf[i];
highbyte=(charbefore & 0xF0) /16;
lowbyte=charbefore & 0x0F;
charafter=shiwei[highbyte] * 16 + gewei[lowbyte];
buf[i]=charafter; }
return ;
}
现在我想把他转换成delphi的，但我是新人对其中不同类型的计算还不是很清楚。
求高手能帮我看看这个如何转换。3x!!!

Answer 1

Procedure jiami(buf:PChar;buflen:Long)
var
  charbefore,charafter:char;
  shiwei:array[0..15] of integer=[12,1,....];//十位
  gewei:array[0..15] of integer=[13,6....];//个位
  i,highbyte,lowbyte:integer;
  tmpstr:String;