Dein Beispiel!
Delphi-Quellcode:
procedure Main;
var
ArraySize: Integer;
xy: TArray<TPoint>;
meta: TArray<Integer>;
pXY: PPoint;
x1: Integer;
x2: Integer;
y1: Integer;
y2: Integer;
begin
SetLength(xy, 10);
xy[0].x := 80 + 110; xy[0].y := 135 + 50;
xy[1].x := 140 + 110; xy[1].y := 130 + 50;
xy[2].x := 160 + 110; xy[2].y := 80 + 50;
xy[3].x := 180 + 110; xy[3].y := 130 + 50;
xy[4].X := 240 + 110; xy[4].y := 135 + 50;
xy[5].X := 192 + 110; xy[5].y := 165 + 50;
xy[6].X := 210 + 110; xy[6].y := 220 + 50;
xy[7].X := 160 + 110; xy[7].y := 190 + 50;
xy[8].X := 110 + 110; xy[8].y := 220 + 50;
xy[9].X := 128 + 110; xy[9].y := 165 + 50;
ArraySize := 10;
pXY := @xy[0];
meta := Pointer(pXY);
{$R+}
x1 := meta[0];
y1 := meta[1];
x2 := meta[(ArraySize * 2) - 2]; // <== ERangeError
y2 := meta[(ArraySize * 2) - 1];
Writeln(x1, y1, x2, y2);
end;
Warum hast du hier einen ERangeError?
Genau, weil du dein Array mit einer länge von 10 definiert hast es muss aber 20 sein.
Teste es einfach mal.
Setze einen Breakpoint auf x1 := meta[0];
Und prüfe welche werte meta dann hat wenn du 20 als länge übergibst.
Nur mit 20 hast du alle werte und zwar die von xy[0].x + xy[0].y das wären jetzt schon 2
Und genau das ist mein Problem denn eigentlich möchte ich auch das es mit einer länge von 10 funktioniert.
Geht aber nicht weil meta TArray<integer> ist! Mit TPoint funktioniert es nicht so recht.
Deshalb muss ich jeden einzelnen wert x, y als Integer an meta übergeben und das sind nun mal 20 nicht 10
Ich caste quasi ein TPoint in ein Integer Array weil 1 Array of TPoint nun mal 2 werte hat müssen diese mit 10 Multipliziert werden.
gruss