Da bei XE2 die Pointer-Arithmetik standardmäßig eingeschaltet ist, kann man den Pointer auch direkt einsetzen. Aber Achtung: dann muss mann die Schrittweite beachten! Die Hilfe sagt dazu:
Zitat:
Wenn X ein Zeigertyp ist, wird X um N-mal der Größe des Typs, auf den gezeigt wird, dekrementiert. Für
type PMyType = ^TMyType;
und
var P: PMyType;
verringert die Anweisung
Dec(P) P um SizeOf(TMyType).