From fdd18225cdff125722d514695c16508115beac52 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Wed, 9 Dec 2015 15:44:53 +0100 Subject: Fehlermeldung in Physikunit.pas korrigiert --- Physikunit.pas | 7 ++++--- 1 file 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; -- cgit v1.2.3-70-g09d2