轉換C++ for循環德爾福

Question

可能重複：
Converting C 「FOR」 loop to Delphi

我想一個C++轉換FOR循環德爾福，但我不知道該怎麼做。 ..

這是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;