CPP -> Delphi

[Gehstock]

wie würdet ihr die Folgende Zeile Übersetzen mich verwirrt sie etwas

Code:

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

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

[Assarbad]

buffer ist ziemlich sicher kein Integer. Vermutlich PAnsiChar oder sowas ...

[implementation]

Zitat:

Zitat von Assarbad (Beitrag 1086310)

buffer ist ziemlich sicher kein Integer. Vermutlich PAnsiChar oder sowas ...

Das wird wohl im C++-Quellcode drinstehen. Ging ja erstmal um die Zeile.

[Assarbad]

Zitat:

Zitat von implementation (Beitrag 1086311)

Das wird wohl im C++-Quellcode drinstehen. Ging ja erstmal um die Zeile.

Und mit ging es darum, daß du buffer als Integer deklariert hast :zwinker:

[Gehstock]

Danke ihr beiden,
Assarbad hat recht ist ein PAnsiChar
und wie übersetz ich das

Code:

if ( ((a ^ data) & (1L << 29)) != 0 )

Delphi-Quellcode:

var
ll : LongInt;

if not((a Xor data) and (SizeOf(ll) SHL 29)) = 0 then

so in etwa?

[Assarbad]

Zitat:

Zitat von Gehstock (Beitrag 1086334)

Delphi-Quellcode:

var
ll : LongInt;

if not((a Xor data) and (SizeOf(ll) SHL 29)) = 0 then

so in etwa?

Neee ...

Delphi-Quellcode:

if ((a xor data) and (1 shl 29)) <> 0 then

[Phoenix]

sizeof longint ist 1??

[Gehstock]

Also doch richtig?

[himitsu]

Das L kannst'e in Delphi ignorieren.

Und um deine letzte Frage zu beantworten:
Wieviele Bytes ist ein LongInt groß?