diff options
| -rw-r--r-- | Physikunit.pas | 8 |
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; |