From d70a51065c30cd7358001ba325a462c321612cb0 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Mon, 5 Oct 2015 15:27:53 +0200
Subject: kleine Umbenennungen

---
 Physikunit.pas | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/Physikunit.pas b/Physikunit.pas
index 0e8075b..e761834 100644
--- a/Physikunit.pas
+++ b/Physikunit.pas
@@ -140,7 +140,7 @@ type
 
   tGitter = class(tObject)
   private
-    besitzer:                     tSimulation;
+    simulation:                   tSimulation;
     prot:                         tProtokollant;
     zeitverfahren:                tZeitverfahren;
     abbruch:                      boolean;
@@ -152,7 +152,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; name: string);
+    constructor create(besitzer: 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;
@@ -191,7 +191,7 @@ const
   minAusgabeBuffer = 1024*1024;
 
 var
-  sighupSimulationen: array of tSimulation;
+  simulationen: array of tSimulation;
 
 // tAusgabeDatei ***************************************************************
 
@@ -1091,7 +1091,7 @@ end;
 
 // tGitter *********************************************************************
 
-constructor tGitter.create(derBesitzer: tSimulation; aX,aP: longint; deltaX,deltaP: double; bekannteWerte: tKnownValues; teilchen: array of tTeilchenSpezies; lichter: tMyStringlist; zv: tZeitverfahren; name: string);
+constructor tGitter.create(besitzer: tSimulation; aX,aP: longint; deltaX,deltaP: double; bekannteWerte: tKnownValues; teilchen: array of tTeilchenSpezies; lichter: tMyStringlist; zv: tZeitverfahren; name: string);
 var
   i: longint;
 begin
@@ -1106,10 +1106,10 @@ begin
   deltaX:=deltaX*(i-1)/(aX-4-1);
 
   abbruch:=false;
-  besitzer:=derBesitzer;
+  simulation:=besitzer;
   zeitverfahren:=zv;
   kvs:=bekannteWerte;
-  prot:=tProtokollant.create(besitzer.prot,name);
+  prot:=tProtokollant.create(simulation.prot,name);
   dX:=deltaX;
   iDX:=1/dX;
   case Zeitverfahren of
@@ -1528,7 +1528,7 @@ begin
   end;
   pro.free;
 
-  if length(sighupSimulationen)=0 then begin
+  if length(simulationen)=0 then begin
     new(na);
     na^.sa_Handler := sigActionHandler(@signalCapture);
     fillchar(na^.sa_Mask,sizeof(na^.sa_mask),#0);
@@ -1542,8 +1542,8 @@ begin
     end;
     dispose(na);
   end;
-  setlength(sighupSimulationen,length(sighupSimulationen)+1);
-  sighupSimulationen[length(sighupSimulationen)-1]:=self;
+  setlength(simulationen,length(simulationen)+1);
+  simulationen[length(simulationen)-1]:=self;
 
   gitter:=tGitter.create(self,round(breite/dX)+1,2*round(pMax/dP)+1,dX,dP,kvs,teilchen,lichter,zeitverfahren,'gitter');
 
@@ -1562,11 +1562,11 @@ begin
   setlength(ausgabeDateien,0);
   gitter.free;
   prot.free;
-  for i:=length(sighupSimulationen)-1 downto 0 do
-    if sighupSimulationen[i]=self then begin
-      for j:=i+1 to length(sighupSimulationen)-1 do
-        sighupSimulationen[j-1]:=sighupSimulationen[j];
-      setlength(sighupSimulationen,length(sighupSimulationen)-1);
+  for i:=length(simulationen)-1 downto 0 do
+    if simulationen[i]=self then begin
+      for j:=i+1 to length(simulationen)-1 do
+        simulationen[j-1]:=simulationen[j];
+      setlength(simulationen,length(simulationen)-1);
     end;
   inherited destroy;
 end;
@@ -1616,13 +1616,13 @@ var
   i: longint;
 begin
   if signal=SIGHUP then
-    for i:=0 to length(sighupSimulationen)-1 do
-      sighupSimulationen[i].gotSighup:=true;
+    for i:=0 to length(simulationen)-1 do
+      simulationen[i].gotSighup:=true;
 end;
 
 initialization
-  setlength(sighupSimulationen,0);
+  setlength(simulationen,0);
 finalization
-  setlength(sighupSimulationen,0);
+  setlength(simulationen,0);
 end.
 
-- 
cgit v1.2.3-70-g09d2