Codeschnipsel aus C++ in Pascal übersetzen

[McDaTob]

Hi,
ich programmiere gerade in Delphi einen CursorCreator.
Jetzt habe ich in der MSDN folgenden C++-Code gefunden
und kann leider nichts damit anfangen.
Es geht mir hierbei nur um die Operatoren.
Wäre nett, wenn mir das jemand übersetzen könnte:

biSizeImage = ((((biWidth * biBitCount) + 31) &~ 31) >> 3) * biHeight

[JasonDX]

Zitat:

Zitat von McDaTob

Code:

biSizeImage = ((((biWidth * biBitCount) + 31) &~ 31) >> 3) * biHeight

Delphi-Quellcode:

biSizeImage := ((((biWidth * biBitCount) + 31) and not 31) shr 3) * biHeight

das müsste funktionieren

greetz
Mike

[McDaTob]

Super, danke.
Die Rechnung stimmt schonmal.
Muss "nur noch" das Drumherum passen ;-)