inkompatibel TArray<Integer> Pointer

[Uwe Raabe]

Zitat von EWeiss:

xy: TArray<TPoint>; ist falsch muss
xy: array [0..9] of TPoint; sein.

Das ist der entscheidende Unterschied. Damit sind die Werte für Länge und Referenzzähler des Arrays undefiniert bzw. von den davor liegenden Daten abhängig. Ein Length(meta) sollte demnach auch einen zufälligen Wert zurückgeben. Du sitzt damit potentiell quasi auf einer Zeitbombe.

[EWeiss]

Zitat:

Ein Length(meta) sollte demnach auch einen zufälligen Wert zurückgeben

Da muss ich dir recht geben.

Zitat:

Du sitzt damit potentiell quasi auf einer Zeitbombe.

Hmm.. wie ist es richtig? bzw. es löst immer noch nicht das Problem mit Tokjo.

TArray<TPoint> ?

Nur dann denke ich bekomme ich ebenfalls den Range Error.

Kann ich ändern sollte kein Problem sein.

Delphi-Quellcode:

GD_DrawPolyLineToCtrl(WinHandle: HWND; pXY: TArray[TPoint>;
   ArraySize: Integer; ColrARGB: Colorref; BorderSize, ObjID, GS_STYLE, GD_STYLE: DWORD;
   Use3D: Short): BOOL;

Das

Delphi-Quellcode:

x2 := meta[(ArraySize * 2) - 2];
//zu
x2 := meta[ArraySize - 2];

werde das nochmal testen.. Danke.

gruss

[Uwe Raabe]

Ich würde einen Open Array Parameter verwenden. Das ArraySize kannst du dir dann auch sparen und mit Length(arrXY) ersetzen.

Delphi-Quellcode:

GD_DrawPolyLineToCtrl(WinHandle: HWND; const arrXY: array of TPoint;
   ColrARGB: Colorref; BorderSize, ObjID, GS_STYLE, GD_STYLE: DWORD;
   Use3D: Short): BOOL;

[EWeiss]

Zitat von Uwe Raabe:

Ich würde einen Open Array Parameter verwenden. Das ArraySize kannst du dir dann auch sparen und mit Length(arrXY) ersetzen.

Delphi-Quellcode:

GD_DrawPolyLineToCtrl(WinHandle: HWND; const arrXY: array of TPoint;
   ColrARGB: Colorref; BorderSize, ObjID, GS_STYLE, GD_STYLE: DWORD;
   Use3D: Short): BOOL;

Ok werde es mal umsetzen

gruss

[EWeiss]

Zitat:

Das ArraySize kannst du dir dann auch sparen und mit Length(arrXY) ersetzen.

Nun ja das ArraySize muss ich behalten..
Aus folgenden Grund.

x und y haben jeweils 10 einträge..

Delphi-Quellcode:

var
  xy: array of TPoint;

  begin
    SetLength(xy, 20);

    xy[0].x := 190;  xy[0].y := 185;
    xy[1].x := 250;  xy[1].y := 180;
    xy[2].x := 270;  xy[2].y := 130;
    xy[3].x := 290;  xy[3].y := 180;
    xy[4].X := 350;  xy[4].y := 185;
    xy[5].X := 302;  xy[5].y := 215;
    xy[6].X := 320;  xy[6].y := 270;
    xy[7].X := 270;  xy[7].y := 240;
    xy[8].X := 220;  xy[8].y := 270;
    xy[9].X := 238;  xy[9].y := 210;

    gSprCtrl.GD_DrawPolyLineToCtrl(HSprCtrl, xy[0], 10,
      gSprCtrl.GD_ColorARGB(255,RGB(100, 250, 150)), 5, ID_POLYLINE,
      GS_VISIBLE or GS_DRAFT, GD_DRAW_OUTLINE, 0);
    
    gSprCtrl.GD_SetObjectImageLabel(ID_ELLIPSE, 'Polyline');
  end;

diese werden in der DLL auf diese weise ausgewertet.

Delphi-Quellcode:

    C := 0;
    for K := 0 to (ArraySize - 1) do
    begin
      x1 := min(x1, meta[C]);
      x2 := max(x2, meta[C]);
      inc(C);

      y1 := min(y1, meta[C]);
      y2 := max(y2, meta[C]);
      inc(C);
    end;

Somit muss die länge von ArraySize die hälfte sein.
Meta wird dann so zugewiesen.
meta := @pXY;

Ob das jetzt mit 64Bit kompatibel ist muss ich erst noch testen, glaube aber nicht!
Meine Frage ist also immer noch nicht beantwortet trotz der fixes Danke nochmal für die Infos.
D2010 funktioniert.

gruss

[Uwe Raabe]

Zitat von EWeiss:

Nun ja das ArraySize muss ich behalten..
Aus folgenden Grund.

x und y haben jeweils 10 einträge..

Ja, und das Array hat 10 Elemente, wobei jedes Element einen X und einen Y Wert hat. Deshalb ist die Länge des Arrays eben 10 und nicht 20.

[EWeiss]

Zitat von Uwe Raabe:

Zitat von EWeiss:

Nun ja das ArraySize muss ich behalten..
Aus folgenden Grund.

x und y haben jeweils 10 einträge..

Ja, und das Array hat 10 Elemente, wobei jedes Element einen X und einen Y Wert hat. Deshalb ist die Länge des Arrays eben 10 und nicht 20.

Ich muss die länge von xy auf 20 festlegen weil ich sonst bei meiner Berechnung einen ERangeError bekomme.
SetLength(xy, 20);
eventuell reden wir an einander vorbei.

Zitat:

Deshalb ist die Länge des Arrays eben 10 und nicht 20.

die Länge des meta Arrays ist 20 nicht 10

gruss