c++ - 将 C++ FOR 循环转换为 Delphi

Question

可能重复：
将 C“FOR”循环转换为 Delphi

我正在尝试将 C++ FOR 循环转换为 Delphi，但我不知道该怎么做......

这是 C++ 函数：

bool bCompare(const BYTE* pData, const BYTE* bMask, const char* szMask)
{
    for(;*szMask;++szMask,++pData,++bMask)
        if(*szMask=='x' && *pData!=*bMask)   return 0;
    return (*szMask) == NULL;
}

我刚刚转换了函数声明：

function bCOmpare( pData: PBYTE; bMask: PBYTE; szMask: PCHAR):boolean;
begin
//...
end;

转换如何？

谢谢

Answer 1

function bCOmpare(pData: PByte; bMask: PByte; szMask: PAnsiChar): Boolean;
begin
  while szMask^<>#0 do
  begin
    if ((szMask^='x') and (pData^<>bMask^)) then
    begin
      Result := False;
      exit;
    end;
    inc(szMask);
    inc(pData);
    inc(bMask);
  end;
  Result := True;//the test in the C code is pointless
end;