Pointermath

[Laufente]

Hallo, koennte mal jemand checken ob folgendes kompiliert in aktueller Delphi version (habe leider nur altes Delphi): Das sollte aber mit jedem PointType (d.h. auch mit array) funktionieren. Vielleicht sollte ich mal updaten...

type
TiPoint = array[0..1] of integer; // array funktioniert nicht
// TiPoint = record x, y: integer; end; // record funktioniert
{$POINTERMATH ON} PPoints = ^TiPoint; {$POINTERMATH OFF}
var
sharedPoints: array of TiPoint;
points: PPoints; point: TiPoint;
begin
setLength( sharedPoints, 10);
sharedPoints[1][0] := 10;
sharedPoints[1][1] := 11;
//sharedPoints[1].x := 10;
//sharedPoints[1].y := 11;
points := @sharedPoints[0];
point := points[1]; // point kopieren
point := (points+1)^; // sollte den gleichen point holen