Fehlermeldung in Physikunit.pas korrigiert

1 files changed, 4 insertions, 3 deletions

diff --git a/Physikunit.pas b/Physikunit.pas
index a8c0c22..2102877 100644
--- a/Physikunit.pas
+++ b/Physikunit.pas
@@ -1409,12 +1409,13 @@ begin
     {$ENDIF}
     {$IF dichteNichtnegativieren = perSkalieren}
     if enfizit=0 then
-    {$ENDIF} begin
-      gitter.prot.schreibe('Kann Defizit der Teilchensorte '+inttostr(i+1)+' nicht ausgleichen, '+floattostr(defizit)+' bleibt übrig!',true);
-      gitter.prot.schreibe('Kann Defizit der Teilchensorte '+inttostr(i+1)+' nicht ausgleichen, es ist nichts positives mehr übrig!',true);
+    {$ENDIF}
+    {$IF dichteNichtnegativieren <> perGeneration} begin
+      gitter.prot.schreibe('Kann Defizit der Teilchensorte '+inttostr(i+1)+' nicht ausgleichen!',true);
       gitter.abbrechen;
       continue;
     end;
+    {$ENDIF}
 
     {$IF dichteNichtnegativieren = perSkalieren}
     enfizit:=1-defizit/enfizit;