explizite Angabe von Protokollant an etlichen unnötigen Stellen entfernt

1 files changed, 10 insertions, 9 deletions

diff --git a/Physikunit.pas b/Physikunit.pas
index b4b1456..6c89ac4 100644
--- a/Physikunit.pas
+++ b/Physikunit.pas
@@ -122,7 +122,7 @@ type
     destructor destroy; override;
     procedure berechneAbleitungen;
     procedure setzeNull; inline;
-    procedure dumpErhaltungsgroeszen(prot: tProtokollant);
+    procedure dumpErhaltungsgroeszen;
     property aX: longint read _aX;
     property aP: longint read _aP;
     property dX: double read _dX;
@@ -150,7 +150,7 @@ type
     aktuelleFelder: longint;
     felders: array of tFelder; // mehrere komplette Simulationsboxen von Feldern, benötigt um Zwischenschritte für die Zeitentwicklung zu speichern
 
-    constructor create(derBesitzer: tSimulation; aX,aP: longint; deltaX,deltaP: double; bekannteWerte: tKnownValues; teilchen: array of tTeilchenSpezies; lichter: tMyStringlist; zv: tZeitverfahren; protokollant: tProtokollant; name: string);
+    constructor create(derBesitzer: tSimulation; aX,aP: longint; deltaX,deltaP: double; bekannteWerte: tKnownValues; teilchen: array of tTeilchenSpezies; lichter: tMyStringlist; zv: tZeitverfahren; name: string);
     destructor destroy; override;
     procedure iteriereSchritt(dT: double);
     procedure dumpErhaltungsgroeszen;
@@ -936,7 +936,7 @@ begin
         (impulsraum[i,abl]+j)^:=0;
 end;
 
-procedure tFelder.dumpErhaltungsgroeszen(prot: tProtokollant);
+procedure tFelder.dumpErhaltungsgroeszen;
 var
   i,j:  longint;
   dens: double;
@@ -944,13 +944,13 @@ begin
   dens:=0;
   for i:=0 to length(massen)-1 do
     dens:=dens+massen[i]/teilchen[i].eigenschaften[tsgMasse];
-  prot.schreibe('Gesamtdefizit: '+floattostr(gesamtDefizit)+' (Anteil '+floattostr(gesamtDefizit/dens)+')',true);
+  gitter.prot.schreibe('Gesamtdefizit: '+floattostr(gesamtDefizit)+' (Anteil '+floattostr(gesamtDefizit/dens)+')',true);
   for i:=0 to length(massen)-1 do begin
     dens:=0;
     for j:=0 to aX-1 do
       dens:=dens+impulsIntegral(j,i,msN);
     dens:=dens*teilchen[i].eigenschaften[tsgMasse]*gitter.dX;
-    prot.schreibe('n['+inttostr(i+1)+'] = '+floattostr(dens)+' (relative Abweichung: '+floattostr(dens/massen[i]-1)+')',true);
+    gitter.prot.schreibe('n['+inttostr(i+1)+'] = '+floattostr(dens)+' (relative Abweichung: '+floattostr(dens/massen[i]-1)+')',true);
   end;
 end;
 
@@ -1036,7 +1036,7 @@ end;
 
 // tGitter *********************************************************************
 
-constructor tGitter.create(derBesitzer: tSimulation; aX,aP: longint; deltaX,deltaP: double; bekannteWerte: tKnownValues; teilchen: array of tTeilchenSpezies; lichter: tMyStringlist; zv: tZeitverfahren; protokollant: tProtokollant; name: string);
+constructor tGitter.create(derBesitzer: tSimulation; aX,aP: longint; deltaX,deltaP: double; bekannteWerte: tKnownValues; teilchen: array of tTeilchenSpezies; lichter: tMyStringlist; zv: tZeitverfahren; name: string);
 var
   i: longint;
 begin
@@ -1054,7 +1054,7 @@ begin
   besitzer:=derBesitzer;
   zeitverfahren:=zv;
   kvs:=bekannteWerte;
-  prot:=tProtokollant.create(protokollant,name);
+  prot:=tProtokollant.create(besitzer.prot,name);
   dX:=deltaX;
   iDX:=1/dX;
   case Zeitverfahren of
@@ -1184,7 +1184,7 @@ end;
 
 procedure tGitter.dumpErhaltungsgroeszen;
 begin
-  felders[aktuelleFelder].dumpErhaltungsgroeszen(prot);
+  felders[aktuelleFelder].dumpErhaltungsgroeszen;
 end;
 
 // tSimulation *****************************************************************
@@ -1532,7 +1532,8 @@ begin
   setlength(sighupSimulationen,length(sighupSimulationen)+1);
   sighupSimulationen[length(sighupSimulationen)-1]:=self;
 
-  gitter:=tGitter.create(self,round(breite/dX)+1,2*round(pMax/dP)+1,dX,dP,kvs,teilchen,lichter,zeitverfahren,prot,'gitter');
+  gitter:=tGitter.create(self,round(breite/dX)+1,2*round(pMax/dP)+1,dX,dP,kvs,teilchen,lichter,zeitverfahren,'gitter');
+
   for i:=0 to length(teilchen)-1 do
     teilchen[i].free;
   setlength(teilchen,0);