copyArray eingefuegt

1 files changed, 32 insertions, 0 deletions

diff --git a/matheunit.pas b/matheunit.pas
index 93d99d5..4783196 100644
--- a/matheunit.pas
+++ b/matheunit.pas
@@ -28,6 +28,9 @@ function cmpStr(s1,s2: string): longint;
 function mitte(s1,s2: string): string;
 function myFloatToStr(x: extended): string;
 function myStrToFloat(s: string): extended;
+procedure copyArray(i: tExtPointArray; out o: tExtPointArray); overload;
+procedure copyArray(i: tLongintArray; out o: tLongintArray); overload;
+procedure copyArray(i: tExtendedArray; out o: tExtendedArray); overload;
 
 implementation
 
@@ -218,5 +221,34 @@ begin
    result:=-result;
 end;
 
+procedure copyArray(i: tExtPointArray; out o: tExtPointArray);
+var
+  j: longint;
+begin
+  setlength(o,length(i));
+  for j:=0 to length(o)-1 do begin
+    o[j].x:=i[j].x;
+    o[j].y:=i[j].y;
+  end;
+end;
+
+procedure copyArray(i: tLongintArray; out o: tLongintArray);
+var
+  j: longint;
+begin
+  setlength(o,length(i));
+  for j:=0 to length(o)-1 do
+    o[j]:=i[j];
+end;
+
+procedure copyArray(i: tExtendedArray; out o: tExtendedArray);
+var
+  j: longint;
+begin
+  setlength(o,length(i));
+  for j:=0 to length(o)-1 do
+    o[j]:=i[j];
+end;
+
 end.