求两个简短的C语言函数转换成DELPHI版本

Question

LPBYTE FindStockDay(LPBYTE pData,long MaxNum,UINT py,UINT time)
{
LPBYTE p = pData+py+0x18;
for (int i = 0 ; i <(0xc00-0x18)/4 ; i++)
{
UINT a = *(UINT*)(p+i*4);
UINT b = a*0xc00 ;
if (a < MaxNum)
{
int a1 = sizeof(TDXL2);
LPBYTE p2 = pData+b;
for (int j = 0 ; j < 0xc00/sizeof(TDXL2); j ++)
{
LPBYTE ptdx = p2+j*sizeof(TDXL2);
if (*(UINT*)(ptdx)  == time)
{
return ptdx;
}
}
}
}
    
return FALSE;
}PBYTE FindStock(LPBYTE pData,long nFileLen,TCHAR* pCh)
{
if ( nFileLen % (signed int)0xC00 )
{
return FALSE;
}
    int Num = nFileLen/0xc00; 
for (int i = 0 ; i < Num; i++)
{
LPBYTE  p = pData+i*0xc00;
if (*(DWORD*)(p+4) != 0x1770
||*(signed int*)(p) >= (signed int)0x1770
||*(DWORD*)(p+8) != Num)
{
if (!strcmp((char*)(p),pCh))
{
return p;
}
}
}
return FALSE;
}

Answer 1

代码基本可以对等翻译，windows的类型系统中LPBYTE和PBYTE是一回事（早期16位时代不一样，LPBYTE是32位指针，PBYTE是16位指针），和Delphi中的PByte一样。UINT是32位无符号整数。TCHAR根据是否unicode版本变化，WideChar或者AnsiChar。