Pointer addieren

[ATS3788]

Code:

char      *lpZero      = NIL;
Int    nOut = (lpZero - lpszBuffer) + 1;

char       lpszBuffer[1024]   = {'\0',};

Hi kann man in Pascal/Delphi über Umwegen, wie in C++ Zeiger addieren oder subtrahieren,
habe nichts im Web gefunden

[alzaimar]

Delphi-Quellcode:

Var
  MyPointer : Pointer;
  MyCharPointer : ^Char;
  MyIntPointer : ^Integer;
Begin
  MyPointer := Pointer (Integer (MyPointer) + 1);
  Inc (MyCharPointer); // Zeigt auf nächstes Element ( = +1)
  Inc (MyIntPointer); // Zeigt auf nächstes Element ( = +4)

[himitsu]

Zitat:

MyPointer := Pointer (Integer (MyPointer) + 1);

MyPointer := PAnsiChar(MyPointer) + 1; PAnsiChar hat 1-Byte große Elemente und verfügt über die nötige Pointer-Arithmetik.

[jbg]

Zitat von himitsu:

PAnsiChar hat 1-Byte große Elemente und verfügt über die nötige Pointer-Arithmetik.

Und PAnsiChar wird auch noch in einem zukünftigen 64-Bit Delphi richtig rechnen, wohingegen "Integer(ptr)" die oberen 32-Bit des 64-Bit ausblendet und somit einen defekten Zeiger generieren wird, da laut Embarcadero Integer 32 Bit bleiben wird, wie auch in Visual C++.

[SirThornberry]

Dann würde ich aber die Schuld ganz klar an die Compilerbauer weiter geben welche in der Hilfe immer schön erwähnten das Integer und Cardinal immer schön mitwachsen.
Aber was lernen wir daraus. Sich dafür einen eigenen Typen definieren und dabei den möglichst größten zur Verfügung stehenden Typen nutzen und dann braucht man nur die eigene Typdeclaration ändern.

[ATS3788]

Danke Leute Danke für die schnelle Antwort