Zeiger inkrementieren: 64Bit -> Fehler

[Viktorii]

Moin.

Ich habe folgenden Code welcher sich als 32 Bit Applikation problemlos kompilieren lässt:

Delphi-Quellcode:

prcedure MyProc(pBuffer: Pointer);
begin 
  ...
  ...
  inc(Integer(pBuffer), $8000);
  ...
end;

Wenn ich als 64 Bit kompilieren möchte bekomme ich den Fehler


Wo liegt das Problem?

Zitat:

[DCC Fehler] MyFunctions.pas(169): E2064 Der linken Seite kann nichts zugewiesen werden

[Viktorii]

Ich glaub ich habe schon die Lösung

Delphi-Quellcode:

pBuffer := PByte(pBuffer) + $8000;

So scheint es zu gehen.

[Uwe Raabe]

Unter 64-Bit ist ein Zeiger 8 Byte (eben 64 Bit) groß, während ein Integer weiterhin 32 Bit verwendet. Mit dem Cast

Delphi-Quellcode:

Integer(pBuffer)

wird somit eine temporäre Variable mit den unteren 32 Bit des Zeigers angelegt. Dieser kann man natürlich nichts zuweisen - zumindest hätte es nicht den gewünschten Effekt.

Der Cast auf

Delphi-Quellcode:

PByte

ist hier genau die richtige Lösung.

[daywalker9]

Aus Integer muss NativeInt gemacht werden, da Integer 32 Bit bleibt und der NativeInt je nach Platform sich anpasst.

Edit: Wo war die rote Box?