CPP -> Delphi

[implementation]

Code:

for (b = ~b & 0x3FFFFFFF; a >= 8; a -= 8, buffer++)

Vielleicht so:

Delphi-Quellcode:

var
  buffer, a, b: integer;
begin
  b := (not b) and $3FFFFFFF;
  while a >= 8 do begin
    ...
    Dec(a,8);
    Inc(buffer);
  end;
end;