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