tTeilchenspezies kopiert nun wirklich alles

1 files changed, 8 insertions, 0 deletions

diff --git a/Physikunit.pas b/Physikunit.pas
index abbb05d..9966c3b 100644
--- a/Physikunit.pas
+++ b/Physikunit.pas
@@ -459,6 +459,14 @@ begin
   for i:=0 to 1 do
     diffusion[i]:=original.diffusion[i];
   breite:=original.breite;
+  fillchar(ortsGrenzen,sizeof(ortsGrenzen),#0);
+  setlength(ortsGrenzen,length(original.ortsGrenzen));
+  for i:=0 to length(ortsGrenzen)-1 do
+    ortsGrenzen[i]:=original.ortsGrenzen[i];
+  fillchar(dichteStuecke,sizeof(dichteStuecke),#0);
+  setlength(dichteStuecke,length(original.dichteStuecke));
+  for i:=0 to length(dichteStuecke)-1 do
+    dichteStuecke[i]:=original.dichteStuecke[i];
 end;
 
 destructor tTeilchenSpezies.destroy;