Convert C++ FOR-Schleife zu Delphi

Question

Mögliche Duplizieren:
Converting C “FOR” loop to Delphi

Ich versuche, eine C++ FOR-Schleife zu Delphi zu konvertieren, aber ich habe keine Ahnung, wie es zu tun.

..

dies ist die C++ Funktion:

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; 
} 

Ich habe gerade die Funktionsdeklaration konvertieren:

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

Wie ist die Umsetzung? Perfekt

Dank

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;