inkompatibel TArray<Integer> Pointer

[Fritzew]

Ja was den nun?
Pointer auf das Array oder neu erzeugt?

Delphi-Quellcode:

 meta := @pXY; //Pointer
  SetLength(meta, ArraySize * 2); //Neu

Ein TArray<t> ist etwas anderes als ein klassisches Array [0..n] of t

Und warum musst Du überhaupt casten?

Delphi-Quellcode:

for K := 0 to (ArraySize - 1) do
    begin
      x1 := min(x1, xy[k].x);
      x2 := max(x2, xy[k].x);
      y1 := min(y1, xy[k].y);
      y2 := max(y2, xy[k].y);
    end;

Aber nun gut........

[EWeiss]

Zitat:

SetLength(meta, ArraySize * 2); //Neu

Der Inhalt von meta bleibt ja erhalte ich setze nur die neue länge.
Neu erzeugt wird da gar nichts.

Anbei zwei shots.. Du siehst also die Daten sind Korrekt.

Zitat:

Und warum musst Du überhaupt casten?

Ganz einfach weil ich ein TArray<Integer> definiert habe und nicht TArray<TPoint>;

Aber werde deine Variante mal testen. Danke!

gruss

[EWeiss]

@Fritzew

Danke für deine Variante habe sie übernommen aber nur den Teil.

Delphi-Quellcode:

const
   maxIntArraysize = (maxint-sizeof(integer)) div sizeof(integer);

  type
   IntArray = Array [0.. maxIntArraysize] of integer;
   PIntArray = ^IntArray;

meta: PIntArray;

Das Ergebnis ist das gleiche aber kompatibler und ohne unnötiges casten.
Nochmals Danke schön :)

gruss