typenunit.pas: tExtraInfos kann jetzt von Original kopiert created werden

1 files changed, 18 insertions, 1 deletions

diff --git a/typenunit.pas b/typenunit.pas
index 1140d02..4422fa6 100644
--- a/typenunit.pas
+++ b/typenunit.pas
@@ -250,7 +250,8 @@ type
     tSiz,xSteps,tSiz_,xSteps_:                   longint;
     istKomplex:                                  boolean;
     knownValues:                                 tKnownValues;
-    constructor create;
+    constructor create; overload;
+    constructor create(original: tExtraInfos);
     destructor destroy; override;
     function xStart: extended;
     function xStop: extended;
@@ -1241,6 +1242,22 @@ begin
   knownValues:=tKnownValues.create;
 end;
 
+constructor tExtraInfos.create(original: tExtraInfos);
+begin
+  inherited create;
+  maxW:=original.maxW;
+  minW:=original.minW;
+  transformationen:=tIdentitaet.create(original.transformationen);
+  np:=original.np;
+  beta:=original.beta;
+  tSiz:=original.tSiz;
+  xSteps:=original.xSteps;
+  tSiz_:=original.tSiz_;
+  xSteps_:=original.xSteps_;
+  istKomplex:=original.istKomplex;
+  knownValues:=tKnownValues.create(original.knownValues);
+end;
+
 destructor tExtraInfos.destroy;
 begin
   knownValues.free;