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 von McDaTob:

Code:

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

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