Delphi-Quellcode:
function ArrayConnect(AArray, BArray : TPointArray) : TPointArray ;
var
n : integer ;
i : integer ;
HilfArray : TPointArray ;
begin
Assert(Assigned(AArray)); // Zur Sicherheit prüfen, ob
Assert(Assigned(BArray)); // die Arrays überhaupt angelegt sind
SetLength(HilfArray, high(AArray) + 1 + high(BArray) + 1) ;
Wenn du öfters Punkte in das Array einfügen musst (und es sieht ganz danach aus), ist eine von
TList abgeleitetete Klasse viel geschickter als ein Array.
Also anstatt jetzt nach einem Fehler zu suchen, würde ich dir empfehlen eine Klasse TPointList zu entwickeln,
da dies die Softwarequalität erhöht.
Wenn du trotzdem beim Array bleiben möchtest, würde ich dir empfehlen, die Arrays nicht direkt zu verwenden, sondern sauber in einer Klasse zu kapseln.