From a4efc863145975b7f3590d32f186b2c002d3be4a Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Wed, 30 Sep 2015 15:02:53 +0200 Subject: tTeilchenspezies kopiert nun wirklich alles --- Physikunit.pas | 8 ++++++++ 1 file changed, 8 insertions(+) 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; -- cgit v1.2.3-54-g00ecf