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

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 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 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?